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PREFACE 


This  report  is  the  result  of  work  performed  under  Contract  Wo. 
DACW39-78-M-2676,  dated  3  April  1978,  between  the  U.  S.  Army  Engineer 
Waterways  Experiment  Station  (WES),  Vicksburg,  Miss.,  and  the  Westing- 
house  Word  Processing  Center,  Pittsburgh,  Pa.  The  work  concerned 
publishing  a  word  processing  version  of  the  Programmer's  Reference 
Manual  for  the  Graphics  Compatibility  System  (GCS).  The  original 
version  of  this  manual  was  developed  at  the  U.  S.  Military  Academy. 

Contributors  to  the  document  were  Dr.  Richard  Puk,  Sandia  Labora¬ 
tories;  Dr.  Steve  Orbon  and  Mr.  Robert  Bruns,  Westinghouse;  and  Mr. 

James  M.  Jones  II,  R&D  Software  Group,  Automatic  Data  Processing  (ADP) 
Center,  WES.  The  work  was  administered  by  the  ADP  Center,  WES,  as  part 
of  Computer  Technology-Engineering  Software,  Project  No.  UA762725AT11 , 
and  the  Civil  Works  Computation  and  Analysis  Project  sponsored  by  the 
Office,  Chief  of  Engineers,  U.  S.  Army  (OCE).  OCE  points  of  contact 
were  Mr.  Robert  McMurrer  (DAEN-DSE)  and  Messrs.  Richard  Malm  and  Harry 
Hardin  (DAEN-CWE-BA) . 

Mr.  Jones  monitored  the  contract  under  the  general  supervision  of 
Dr.  N.  Radhakrishnan,  Special  Technical  Assistant  to  the  Chief  of  the 
ADP  Center,  WES,  and  Mr.  D.  L.  Neumann,  Chief  of  the  ADP  Center. 

Directors  of  WES  during  the  period  of  the  contract  and  the  prep¬ 
aration  of  this  report  were  COL  J.  L.  Cannon,  CE,  and  COL  N.  P.  Conover, 
CE.  Technical  Director  was  Mr.  F.  R.  Brown. 
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CHAPTER  I 


^  INTRODUCTION 

^Contained  within  this  section  are  the  detailed  descriptions  and  usage  instructions  of  all 
of  the  user  callable  routines  which  make  up  the  GCS  graphics  system,  and  a  discussion 
of  the  various  options  available  to  the  user. 

GCS  is  available  in  two  versions,  a  two-dimensional  version,  and  a  three-dimensional 
version. 

The  three  dimensional  version  is  a  sophisticated,  highly  capable  package  having  such 
features  as  graphical  data  structures,  text  processing,  and  of  course,  three-dimension 
graphics.  The  two-dimensional  version  is  the  older,  less  sophisticated  version.  While 
possessing  fewer  capabilities,  it  is  still  supported,  since  it  offers  the  benefits  of  a  smaller 
central  memory  requirement,  and  a  higher  execution  speed,  while  still  fulfilling  most  of 
the  normal  graphics  requirements. 

In  general,  the  two-dimension  version  is  a  proper  subset  of  the  three  dimension  version 
meaning  that  all  elements  of  two-dimension  GCS  are  contained  within  the  three 
dimensional  version.  , 

Those  routines  or  options  which  are  a  part  of  the  three-dimension  version,  and  not  a  part 
of  the  two-dimension  version  are  indicated  by  the  notation  ‘3D  only.' 


V 
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CHAPTER  II 

THE  GRAPHICS  STATUS  AREA  (GSA)  AND  USET/UPSET/UQUERY  OPTIONS 


The  Graphics  Status  Area 

Central  to  the  structure  of  GCS  is  the  concept  of  a  distributed  executive  capability 
provided  by  the  Graphics  Status  Area  (GSA).  This  is  a  labeled  COMMON  area  in  which  is 
stored  information  concerning  the  state  of  the  graphics  system,  information  about  the 
characteristics  of  both  the  terminal  and  the  computer  system,  and  information  about  the 
current  settings  of  GCS  user-controlled  variables  The  GSA  serves  as  a  means  of 
communication  between  the  various  subroutines  which  comprise  the  Graphics 
Compatibility  System  Much  of  the  power  of  GCS  arises  from  the  ability  of  every  GCS 
routine  to  access  any  of  the  information  about  the  status  of  the  system  conveniently  and 
efficiently.  One  of  the  immediate  results  of  having  a  status  area  is  the  great  reduction  in 
the  number  of  arguments  in  the  calling  sequences  of  the  routines,  thus  improving  the 
efficiency  of  the  system  It  also  makes  it  much  easier  for  the  user  to  remember  the 
calling  sequence  of  the  different  routines  when  writing  application  software 

The  variables  of  the  GSA  can  be  set  in  any  of  three  ways:  they  may  be  established 
during  the  execution  of  USTART  with  values  taken  from  a  predefined  table:  they  may  be 
set  by  the  user  through  USET,  UPSET,  or  other  setting  routines:  or  they  may  be  set  by 
GCS  routines  during  execution.  USTART  will  load  the  variables  with  their  initial  default 
setting.  The  user  sets  these  variables  under  his  control  in  USET  and  UPSET  and  through 
subroutine  arguments  for  such  routines  as  UWINDO,  UMARGN,  UDAREA,  UCOSYS.  and 
UROTAT.  The  user  may  also  restore  the  GSA  variables  to  the  previous  state  through  use 
of  any  of  the  ‘UNSAVE'  routines  GCS  itself  maintains  many  variables  which  keep  track 
of  such  items  as  beam/pen  position,  and  various  status  change  flags.  The  parameters 
contained  within  the  GSA  can  be  obtained  by  the  user  by  a  call  to  UQUERY 

The  ability  to  change  GSA  variables  selectively  in  accordance  with  related  subroutine 
options  is  one  of  the  many  attractive  and  powerful  features  o^'GCS  This  chapter 
contains  two  tables  which  present  descriptive  grouping  of  USET/and  UPSET  options. 
Table  t  gives  a  list  of  those  USET  options  which  are  most  frequently  used.  This  list  may 
be  used  as  a  quick  reference  guide  to  the  most  popular  USET  options  Table  2  gives  the 
default  conditions  that  are  automatically  preset  as  each  call  to  GCS  is  initiated  This 
concept  of  default  values  is  immensely  valuable  and  convenient  to  both  the  beginning 
programmer  and  the  experienced  programmer  who  doesn’t  want  to  worry  about  the 
setting  of  the  GSA  variables  The  complete  list  of  options  can  be  formed  in  the  writeups 
associated  with  the  USET/UPSET/UGUERY  subroutines. 


USET  Options 
TABLE  1 

USET  OPTIONS  MOST  FREQUENTLY  USED: 

TO  REQUEST  ABSOLUTE  COORDINATE  PLOTTING  (DEFAULT) 

USET  (‘ABSOLUTE  )  USET  CABSO') 

USET  CABSb  > 

TO  REQUEST  RELATIVE  OR  INCREMENTAL  COORDINATE  PLOTTING: 

_ _ USET  (  RELATIVE  ) 

NOTE  b  -  is  a  blank  or  space 


USET  i.'RFLA  ) 


TO  REQUEST  RECTANGULAR  COORDINATES  (DEFAULT): 


USET  (  RECTANGULAR')  USET  CRECT') 

TO  REQUEST  POLAR  COORDINATES. 

USET (POLAR)  USET (POLA) 

TO  REQUEST  ANGULAR  VALUES  IN  DEGREES  (DEFAULT): 

USET  (  DEGREES')  USET  CDEGR') 

TO  REQUEST  ANGULAR  VALUES  IN  RADIANS: 

USET  (  RADIANS')  USET  (  RADI  ) 

TO  REQUEST  PLOTTING  IN  VIRTUAL  SPACE  (DEFAULT): 

USET  ('VIRTUAL')  USET  CVIRT') 

TO  REQUEST  PLOTTING  IN  DEVICE  SPACE. 

USET  ('DEVICE')  USET  (‘DEVI’) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  UNITS  IN  INCHES  (DEFAULT): 

USET  CINCHES')  USET  CINCH  ) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  RASTER  UNITS: 

USET  CRASTERUNITS  )  USET  CRAST’) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  FONT  (CHARACTER  SPACE)  UNITS 
USET  CFONTUNITS')  USET  (‘FONT') 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  PERCENT  UNITS: 

USET  (  PERCENT UNITS')  USET  CPERC’) 

t 

TO  REQUEST  PLOTTING  OF  A  VISIBLE  LINE  (DEFAULT). 

USET  CLINE’) 

TO  REQUEST  PLOTTING  OF  INVISIBLE  LINES 
USET  ('MOVE') 

USET  CNOLINE’)  USET  ('NOLI') 

_ _ USET  CNObLINE  ) _  USET  CNObL’) 

NOTE,  b  -  is  a  blank  or  space 
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TO  REQUEST  PLOTTING  OF  LINES  WITH  ARROW  TERMINATORS: 

USET  (  ARROW  )  USET  OARRO') 

TO  REQUEST  PLOTTING  OF  DASHED  LINES: 

USET  (‘DASH') 

TO  REQUEST  PLOTTING  OF  TIC  LINES. 

USET  CTICLINE')  USET  CTICL  ) 

TO  REQUEST  PLOTTING  OF  LINES  WITH  ONLY  ENDPOINTS  VISIBLE: 

USET  (  POINT  )  USET  CPOIN1) 

TO  REQUEST  PLOTTING  OF  LINES  COMPOSED  OF  CHARACTERS:  t 

USET  CALPHANUMERICLINES’)  USET  CALPH') 

TO  REQUEST  PLOTTING  OF  INVISIBLE  LINES  WITH  CHARACTERS  AT  THEIR 
ENDPOINTS: 

USET  (  CHARACTER')  USET  ('CHAR') 

TO  REQUEST  CHARACTER  OUTPUT  IN  THE  FORM  OF  HARDWARE  CHARACTERS 
(DEFAULT): 

USET  ('HARDWARE')  USET  CHARD') 

TO  REQUEST  CHARACTER  OUTPUT  IN  THE  FORM  OF  SOFTWARE  CHARACTERS: 
USET  ('SOFTWARE')  USET  ('SOFT') 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  TEXT  FORMAT  (DEFAULT): 

USET  ('TEXT') 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  REAL  FORMAT: 

USET  CREALNUMBER')  USET  ('REAL') 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  INTEGER  FORMAT: 

USET  ('INTEGER')  USET  OINTE') 

TO  REQUEST  PLOTTING  WITH  RESPECT  TO  THE  SYSTEM  AXIS  (DEFAULT). 


USET  ('SYSTEM') 
NOTE:  b  -  is  a  blank  or  space 


USET  CSYSD 


TO  REQUEST  PLOTTING  WiTH  RESPECT  TO  THE  USER  AXIS 
USET  CUSERAXIS)  USET  ('USER') 

TO  REQUEST  A  LINE  TYPE  CHARACTER  TERMINATOR  COMBINATION 
USET  CXSob'j  USET  CXS  ) 


Where 


AND 


S  IS  THE  DESIRED  CHARACTER  TERMINATOR 
X.  THE  LINE  TYPE  SPECIFICATION.  IS  AS  FOLLOWS 


A  ALPHANUMERIC  LINE 
D  DASHED  LINE 
L  SOLID  LINE 
N  NULL  OR  INVISIBLE  LINE 
T  TIC  LINE 
b  denotes  blank 


TABLE  2 

GCS  DEFAULT  CONDITIONS 


This  table  discusses  those  options  which  are  present  in  the  Graphics  Status  Area  as 
default  oqtions  After  a  call  to  Subroutine  USTART.  the  Graphics  Compatibility  System  is 
set  to  the’default  conditions  as  indicated  below.  The  default  options  can  be  divided  into 
two  groups:  Basic  Plotting  Options  and  High  Level  Plotting  Options 

I.  Default  Basic  Plotting  Options 

Plotting  is  done  in  RECTANGULAR  and  ABSOLUTE'  coordinates  on  the  SYSTEM' 
coordinate  axis  The  USER'  coordinate  axes  are  identical  to  the  system  axis  Plotting  is 
done  in  VIRTUAL'  space  with  a  virtual  window  whose  limits  are  from  0  0  to  1 00  0  in  the  X 
direction,  and  from  0.0  to  100  0  in  the  Y  direction.  The  virtual  window  is  mapped  into  a 
display  area  which  is  the  largest  square  area  on  the  device  display  surface  The  right 
hand  edge  of  the  square  corresponds  to  the  top  edge  of  the  display  surface 

Character  output  in  GCS  will  be.  by  default,  in  HARDWARE'  character  format,  of  type  9K 
and  of  MEDIUM'  size  If  SOFTWARE'  characters  are  requested  via  USET  then  the 
default  horizontal  size  is  five  (5  0)  virtual  units,  and  the  default  vertical  size  is  seven  (7.0) 
virtual  units,  with  the  font  'SGCS  being  the  default  font 

By  default,  angular  units  for  angular  specifications  are  in  DEGREES’.  If  the  user 
switches  to  DEVICE'  space,  then  all  length  or  distance  units  (i.e.  from  UPRINT  or 
UREAD).  the  data  will  be  assumed  to  be  in  TEXT'  mode.  The  alphanumeric  output 
defaults  to  the  PLOT'  device  if  possible,  and  any  graphic  output  will  go  to  all  devices  in  a 
cluster  Graphic  input  is  from  the  primary  input  device:  the  number  of  digits  of  precision 
for  numeric  output  is  tour  (4):  and  GCS  detected  errors  are  signalled  as  they  occur. 

A  line  which  is  drawn  by  a  subroutine  in  GCS  is  considered  to  consist  of  two  parts;  a  line 
type  and  a  line  terminator  The  line  type  may  be  solid  (visible),  ticked,  null  (invisible), 
dashed,  or  alphanumeric.  The  line  may  be  terminated  by  an  arrow,  a  back  arrow,  double 
arrows,  a  character,  a  point,  a  symbol,  a  set  of  coordinate  values,  or  nothing  at  all.  The 
default  line  type  in  GCS  is  SOLID'  with  NULL'  terminators  CLNULL’).  If  'TICLINES'  are 
requested  via  USET  option,  then  the  default  tic  interval  is  ten  (1 0.0)  virtual  units  It  is  the 
user's  responsibility  to  insure  that  the  tic  interval  is  appropriate  if  he  switches  to 


NOTE:  b  -  is  a  blank  or  space 


DEVICE  space  or  alters  the  default  virtual  window  setting  or  the  default  display  area 
setting  if  DASHLINES  are  requested  then  the  default  dash  specification  (56  >  will 
result  in  a  dashed  line  which  is  alternately  light  and  dark,  in  increments  o<  approximately 
0  075  inches  If  a  CHARACTER  line  terminator  is  requested  but  no  character  is 
specified  by  way  of  Subroutine  UPSET,  then  the  character  asterisk  (*)  is  used  Similarly 
the  asterisk  is  used  to  compose  the  line  type  if  ALPHANUMERIC'  lines  are  requested 

For  3D  operations,  the  viewing  environment  is  set  up  to  simulate  a  2D  environment  The 
view  point  is  located  at  (0  0 .  1 50 ).  the  view  site  is  at  (0.,  0 . 0.)  and  the  view  plane  is 
located  at  the  view  site  The  system  coordinate  system  is  considered  to  be  RIGHT- 
HANDED  with  the  ZPOSITIVEAXIS'  representing  up.  Note  that  since  the  view  is  down 
the  z-axis  the  up  direction  degenerates  to  YPOSITIVEAXIS'.  The  z-axis  clipping  planes 
are  150  (hither  plane)  and  1  0E  +  30  (yon  plane)  with  NOZCUPPING' 

II.  Default  High  Level  Plotting  Options 

For  each  call  to  UPLOT  or  UPLOT1.  the  data  values  which  represent  the  curves  are 
examined  and  a  NEWSCALE  is  created  UAXIS  will  be  invoked  to  create  'XYAXES' 
The  data  values  will  be  examined,  and  appropriate  limits  for  the  data  established 
Numeric  labels  only  will  be  output  for  the  X  axis  and  the  Y  axis  The  values  which  appear 
aJr^er-<IC  ,marks  on  ,he  axes  Wl11  be  neat'  numbers,  and  the  axes  will  be  positioned  at  the 
EDGE  of  the  plot  Both  the  X  axis  and  the  Y  axis  will  be  drawn  in  a  linear  coordinate 
space  The  axis  lines  will  be  ticced  If  a  time  series  axis  is  plotted  by  invoking 
Subroutine  UTAXIS.  the  default  interval  for  the  X  axis  wll  be  'DATE'  No  curves  will  be  fit 
to  the  data  values  but  if  FITPOLYNOMIAL'  is  requested,  then  subroutine  UPLOT  will 
attempt  to  fit  a  fifth  degree  polynomial  to  the  data 

III.  Summary 


COORDINATE  SPACE 
COORDINATE  TYPE 
COORDINATE  SYSTEM 
COORDINATE  AXIS 


VIRTUAL' 

ABSOLUTE' 

RECTANGULAR' 

SYSTEM 


VIRTUAL  WINDOW 

DISPLAY  AREA. 

DEVICE  SPACE  UNITS 
ANGULAR  UNITS 


0  0  TO  100  0  X  DIRECTION 
0  0  TO  100  0  Y  DIRECTION 

Largest  square  area  which  is  right-justified  on  the 
display  surface  of  the  device 

INCHES' 

DEGREES' 


LINE  TYPE 

SYSTEM  CHARACTER 
TIC  INTERVAL 
DASH  SPECIFICATION: 


'LINE'  or  'LNULL' 
asterisk  (*) 

1 0.0  virtual  units 
56 


CHARACTER  TYPE 
CHARACTER  FONT 
CHARACTER  SIZE 
SOFTWARE  CHARACTER  SIZE: 

SOFTWARE  CHARACTER  FONT 

OUTPUT  FORMAT 
ALPHANUMERIC  MARGINS: 


HARDWARE' 

GOTHIC' 

MEDIUM' 

5.0  virtual  units  horizontal 
7.0  virtual  units  vertical 
SGCS' 

TEXT' 

Device  display  suriace  boundaries. 


DIGITS  OF  PRECISION  4 

ERROR  HANDLING:  ‘IMMEDIATEOUTPUT 


AXIS  SCALING: 

AXIS  LABELING: 

AXIS  POSITIONING 
AXIS  TYPE: 

AXIS  EXISTENCE: 
AXIS  COORDINATES: 


'AUTOSCALE' 

•XNUMERICLABEL' 

YNUMERICLABEL' 

EDGEAXIS' 

TICAXIS' 

•  y  y  a  y  po’ 

'NOLOGARITHMS' 


TIME  SERIES  AXIS  SCALE: 


DATE' 


CHAPTER  III 

GCS  USER  SUBROUTINES 


This  chapter  provides  the  detailed  description  of  each  user  callable  subroutine  Each 
routine  is  presented  in  the  following  manner:  The  FUNCTION  paragraph  gives  a  brief 
statement  of  the  main  purpose  of  the  subroutine.  The  CALLING  SEQUENCE  is 
pr®®®"ted  with  an  explanation  of  each  parameter  required  for  the  subroutine.  Any  USET 
r>oTiV?Jr 2  opt,ons  wi)l  a^ect  the  operation  of  the  subroutine  are  listed  under  the- 

«  LI0 paragraph  The  COMMENTS  paragraph  provide  the  detailed  description  of  all 
of  those  features  considered  to  be  both  unique  and  important  to  each  specific 
subroutine  On  the  following  pages  is  listing  of  all  of  the  user  subroutines.  The  features 
tnat  are  only  calculated  in  the  three  dimensional  version  are  specified  by  italics. 


ALPHABETICAL  LISTING  OF  GCS  SUBROUTINES 


UAIN 

UALPHA 

UAOUT 

UAPEND 

UARC 

UASPCT 

UAVERG 

UAXIS 

UBAR 

UBELL 

UCALL 

UCHART 

UCLIP 


Accepts  one  character  from  the  terminal 
CALL  UAIN  (ICHAR) 

Insures  that  terminal  is  in  alphanumeric  mode 
CALL  UALPHA 

Outputs  a  character  at  current  pen  position  subject  to  margining 
CALL  UAOUT  (ICHAR) 

Adds  GCS  string  terminator  to  character  string 

CALL  UAPEND  (COUNT, DATAIN.DATOUT) 

Draws  an  arc  from  current  pen  position 
CALL  UARC  (X,Y, ANGLE) 

Forces  the  display  dimensions  to  satisfy  the  specified  aspect 
ratio 

CALL  UASPCT  (RATIO) 

Fits  a  moving  average  curve  to  time  series  data 

CALL  UAVERG  (ARRAY, POINTS, FCST, PERIOD) 

Draws  axes  with  appropriate  numeric  and  alphanumeric  labeling 

CALL  UAXIS  (XMIN.XMAX.YMIN.YMAX) 

Draws  a  bar  chart  with  appropriate  numeric  and  alphameric 
labels 

CALL  UBAR  (ARRAY.PTS, LABELS, SIZE) 

Sounds  the  audible  alarm  at  the  terminal 
CALL  UBELL 

Invokes  a  graphic  data  structure  in  two  dimensions 
CALL  UCALL  (NAME, OX, DY.SX.SY .ANGLE) 

Draws  a  grouped  bar  chart  for  multi-valued  data 
CALL  UCHART  (ARRAY  GROUPS, BARS, LABELS, YMAXL) 

Defines  clipping  parameters 

CALL  UCLIP  (XMIN.XMAX.YMIN.YMAX) 


fKKC&QING  FAGS  BUNK 
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UCLOSE 

UCOLOR 

UCONIC 

UCONTR 

UCOSYS 

UCOUNT 

UCRCLE 

UDAREA 

UDELAL 

UDELET 

UDIMEN 

UDOIT 

UDRAW 

UDRIN 


Closes  the  current  open  frame/segment  43 

CALL  UCLOSE  (SEGNAM) 

Defines  entries  in  a  program  modifiable  table  of  colors  44 

CALL  UCOLOR  (CLRIDX,  CLRCNT,  CLRNAM.  CLRVAL) 

Draws  generalized  conic  sections 

CALL  UCONIC  (X.Y, P,E, THETA  1  THETA2) 

Draws  contours  on  regular  array  of  data 

CALL  UCONTR  (Z.X.Y.A.FX.FY.CURVE.FN) 

Creates  a  user  coordinate  plotting  system 

CALL  UCOSYS  (DX.DY.SX.SY, ANGLE) 

Counts  number  of  characters  in  character  string 
CALL  UCOUNT  (DATA, COUNT) 


Draws  a  circle  whose  center  location  and  radius  are  specified  54 

CALL  UCRCLE  (X.Y.RADIUS) 

Sets  the  device  display  area  associated  with  user  window  56 

CALL  UDAREA  (XMIN.XMAX.YMIN.YMAX) 

Deletes  all  currently  defined  frame/segments  58 

CALL  UDELAL 

Deletes  a  currently-defined  frame- segment  59 

CALL  UDELET  (SEGNAM) 

Adjusts  physical  boundaries  of  output  device  (alters  aspect  ratio)  60 
CALL  UDIMEN  (XMAX.YMAX) 

Perform  various  page  layout  functions  61 

CALL  UDOIT  (ACTION) 

Draws  solid  line  vector  63 

CALL  UDRAW  (X.Y) 


Performs  the  input  requested  graphic  operation  and  returns 
request  64 

CALL  UDRIN  (X.Y.ICHAR) 


UEND  Terminates  graphic  operations  and  positions  pen  in  home  posi¬ 


tion  66 

CALL  UEND 

UERASE  Erases  the  screen  or  requests  a  clean  plotting  surface  67 

CALL  UERASE 

UERROR  Returns  listing  of  source  records  with  GCS  error  commentary  68 

CALL  UERROR  (ERLAST, TOTAL) 

UFLUSH  Insures  that  visual  display  reflects  all  net  program  graphical  out¬ 
put  69 

CALL  UFLUSH 

UFONT  Invokes  hershey  font  70 

CALL  UFONT  (NAMFNT) 

UFORMT  Configures  the  display  surface  to  the  requested  format  72 

CALL  UFORMT  (FORMAT) 

UFRAME  Defines  the  start  of  a  named  set  of  graphical  commands  74 

CALL  UFRAME  (NAME) 

UFREND  Defines  the  end  of  a  named  set  of  graphical  commands  75 

CALL  UFREND  (NAME) 

UGRIN  Gets  coordinates  and  a  character  from  terminal  and  returns  them  77 

CALL  UGRIN  (X.Y.ICHAR) 

UHDCPY  Causes  hardcopy  to  be  generated  80 

CALL  UHDCPY 

UHISTO  Draws  a  histogram  with  appropriate  numeric  and  alphanumeric 

labels  89 

CALL  UHISTO  (ARRAY, PTS, BARS) 

UHOME  Moves  beam  to  home  position  85 

CALL  UHOME 

UIMAGE  Applies  general  2-D  image  transformations  to  retained’  frames/ 

segments  86 

CALL  UIMAGE  (X,Y.SX,SY,R,SEGNAM) 

UINPUT  Inputs  alphanumeric  information  from  the  current  position  87 

CALL  INPUT  (DATA, COUNT, FLAG, OPTION) 
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UINVOK  Invokes  a  GCS  structure  at  the  current  position  89 

CALL  UINVOK  (NAME) 

ULINE  Connects  two  arrays  of  points  with  current  line  option  91 

CALL  ULINE  (X.Y.PTS) 

ULINFT  Determines  linear  least  squares  fit  to  points  provided  93 

CALL  ULINFT  (X.Y.XN.S.YI) 

ULOOK  Establish  portion  display  area  onto  which  corresponding  portion 

of  current  virtual  space  viewport  will  be  mapped  95 

CALL  ULOOK  (XMIN.XMAX.YMIN.YMAX) 

ULSTSQ  Calculates  least  squares  polynomial  (it  to  points  provided  97 

CALL  ULSTSQ  (X.Y.XN.COEFF) 

UMARGN  Sets  the  left  and  right,  top  and  bottom  alphanumeric  window 

boundaries  99 

CALL  UMARGN  (XLEFT.XRIGHT.YBOTTM.YTOP) 

UMENU  Menu  board  generating  routine  101 

CALL  UMENU  (POINTS.LABELS.CHOICE) 

UMODFY  Modifies  setting  of  frame/segment  attributes  103 

CALL  UMODFY  (SEGNAM.NAMAT.ATVALU) 

UMOVE  Moves  the  pen  to  position  specified  by  input  arguments  104 

CALL  UMOVE  (X.Y) 

UNSAVE  Restores  all  variables  of  the  graphic  status  area  105 

CALL  UNSAVE  (ARRAY) 

UNSHOW  Causes  the  named  frame/segment  of  graphical  information  to  be 

made  invisible  106 

CALL  UNSHOW  (NAME) 

UNSVPN  Restores  all  pen  related  variables  in  the  graphics  status  area  107 

CALL  UNSVPN  (ARRAY) 

UNSVTR  Restores  coordinate  system  related  variables  in  the  graphics 

status  area  108 

CALL  UNSVTR  (ARRAY) 

UOPEN  Opens  a  frame/segment  109 

CALL  UOPEN  (SEGNAM.SEGTYP) 
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UORIGN  Creates  a  user  coordinate  system  at  the  current  beam/pen  posi¬ 


tion  1 1 1 

CALL  UORIGN 

UOUTLN  Draws  a  box  around  the  user's  display  area  1 1 2 

CALL  UOUTLN 

UPAUSE  Suspends  execution  until  one  character  is  entered  from  keyboard  1 1 4 

CALL  UPAUSE 

UPEN  Draws  a  line  from  current  pen  position  to  given  coordinates  115 


CALL  UPEN  (X,Y) 

UPEN1  Sets  one  ‘USET’  option  for  this  call  only  before  executing  pen 


movement  116 

CALL  UPEN1  (X,Y, OPTION) 

UPIE  Draws  a  pie  chart  with  appropriate  numeric  and  alphameric  labels  1 1 8 

CALL  UPIE  (ARRAY, PTS.LABELS.SIZE) 

UPLACE  Applies  2-D  translation  image  transformation  to  'retain-d'  frames/ 

segments  1 20 

CALL  UPLACE  (X.Y.SEGNAM) 

UPLOT  General  purpose  multi-curve  plotting  routine  121 

CALL  UPLOT  (X.Y, CURVES, PARRAY, OPTION) 

UPLOT1  Plots  a  single  curve  124 

CALL  UPLOT 1  (X.Y.PTS) 

UPLYGN  Draws  a  regular  polygon  126 

CALL  UPLYGN  (X.Y.PTSIN, RADIUS) 

UPOINT  Defines  point  which,  together  with  two  end  points  of  a  giVen  line, 

defines  the  plane  for  the  terminator  and  tic  line  1 29 

CALL  UPOINT  (X,Y,Z) 

UPOST  Insures  that  only  defined,  visible  frame/segments  are  displayed  130 

CALL  UPOST 

UPRINT  Prints  information  in  hardware  or  software  characters  131 

CALL  UPRINT  (X.Y. INPUT) 

UPRNT1  Allows  alphanumeric  output  at  current  position  with  specified 

option  132 

CALL  UPRNT1  (DATA, OPTION) 
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UPSET  Changes  setting  in  the  GSA  which  requires  a  parameter  value  to 

be  set  1 34 

CALL  UPSET  (OPTION. VALUE) 

UQUERY  Obtains  current  value  of  specified  variable  in  GSA  140 

CALL  UQUERY  (OPTION, VALUE) 

URAXIS  Obsolete  axis  routine  146 

CALL  URAXIS  (XMIN.XMAX.YMIN.YMAX) 

UREAD  Allows  alphanumeric  input  from  the  graphic  terminal  148 

CALL  UREAD  (X.Y.DATA, COUNT, FLAG) 

URECT  Draws  a  rectangle  150 

CALL  URECT  (X.Y) 

UREPRO  Post  process  pseudo  display  file  to  current  graphics  device  153 

CALL  UREPRO  (FILENR, STATUS) 

URESET  Resets  GSA  variables  to  default  conditions  154 

CALL  URESET 

UROTAT  Creates  a  user  coordinate  system  at  current  position  rotated  as 

specified  1 55 

CALL  ROTAT  (ANGLE) 

USAREA  Changes  device  boundaries  to  maintain  a  one  to  one  aspect  ratio 

with  the  current  window  boundaries  156 

CALL  USAREA 

USAVE  Saves  all  the  variables  of  the  Graphics  Status  Area  157 

CALL  USAVE  (ARRAY) 

USAXIS  Draws  a  single  axis  in  any  of  three  coordinates  158 

CALL  USAXIS  (AXIS,XSTART,YSTART,ZSTART,DIST) 

USCALE  Creates  a  user  coordinate  system  at  current  position  with 

specified  scale  161 

CALL  USCALE  (SX.SY) 

USCATR  Draws  a  scatter  plot  163 

CALL  USCATR  (X.Y.PTS) 

USET  Sets  a  graphics  status  area  variable  to  a  given  value  165 

CALL  USET  (OPTION) 
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USHOW  Causes  the  named  frame/segment  of  graphical  information  to  be 


made  visible  173 

CALL  USHOW  (NAME) 

USPLIN  Fits  a  cubic  spline  interpolatory  curve  to  the  input  data  184 

CALL  USPLIN  (X.Y.PTS.RETX.RETY.RETPTS) 

USTART  Initializes  the  graphics  status  area  186 

.  CALL  USTART 

USTRCT  Defines  the  start  of  a  graphic  data  structure  187 

CALL  USTRCT  (NAME) 

USTUD  Returns  limits  of  two  dimensional  virtual  and  display  surfaces  188 

CALL  USTUD  (ARRAY) 

USVPN  Saves  all  pen-related  variables  of  the  graphics  status  area  189 

CALL  USVPN  (ARRAY) 

USVTR  Saves  coordinate  system  related  variables  in  the  graphics  status 

area  1 90 

CALL  USVTR  (ARRAY) 

UTAXIS  Draws  a  time  series  axis  with  appropriate  alphameric  and 

numeric  labels  ■/  v  191 

CALL  UTAXIS  (BEGIN, PERIOD, YMIN.YMAX) 

UTERM  Defines  the  end  of  a  graphic  data  structure  193 

CALL  UTERM  (NAME) 

UTILTY  Performs  data  structure  utility  functions  194 

CALL  UTILTY  (OPTION, VALUE) 

UTSFIT  Fits  an  exponentially  smoothed  curve  to  time  series  data  195 

CALL  UTSFIT  (ARRAY.POINTS.FCST, ALPHA) 

UVIEW  Defines  position  of  viewer  in  relation  to  environment,  and  the 

direction  of  view  1 96 

CALL  UVIEW  (XVIEW,YVIEW,ZVIEW,XSITE,YSITE,ZSITE) 

UVWPLN  Defines  the  location  of  the  view  (projection)  plane  197 

CALL  UVWPLN  (DISTAN) 

UWAIT  Waits  a  given  number  of  seconds  200 

CALL  UWAIT  (SECONDS) 
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UWHERE 

Returns  the  coordinates  of  the  current  pen  position  in  user  units 

CALL  UWHERE  (X.Y) 

201 

UWINDO 

Sets  the  virtual  window  boundaries 

CALL  UWINDO  (XMIN.XMAX.YMIN.YMAX) 

202 

UWLOOK 

Adjusts  both  virtual  window,  and  user  display  area  to  cover  given 

portion  of  virtual  space 

CALL  UWLOOK  (XMIN.YMAX.YMIN.YMAX) 

204 

UWRITE 

Prints  information,  then  restores  pen  to  location  on  input 

CALL  UWRITE  (X.Y.DATA) 

206 

UWRIT1 

Allows  alphanumeric  output  at  current  position  under  one  option 

CALL  UWRIT1  (DATA.OPTION) 

209 

UZWNDO 

Sets  the  hither/yon  window  boundaries  for  Z-clipping 

CALL  UZWNDO  (ZMIN.ZMAX) 

211 

U3AREA 

Defines  screen  parameters 

CALL  U3AREA  (XMIN.XMAX.YMIN.YMAX, ZMIN.ZMAX) 

212 

U3AXIS 

Creates  a  set  of  axes  in  three  space 

CALL  U3AXIS  (XMIN.XMAX.YMIN.YMAX, ZMIN.ZMAX) 

213 

U3CALL 

Invokes  an  existing  graphics  data  structure  in  three  space 

CALL  U3CALL  (X.Y.Z.SX.SY.SZ.RX.RY.RZ.NAME) 

217 

U3CSYS 

Creates  a  new  coordinate  system  in  three  space 

CALL  U3CSYS  (X.Y.Z.SX.SY.SZ.RX.RY.RZ) 

219 

U3DRAW 

Draws  a  solid  line  in  3-D  space 

CALL  U3DRAW(X,Y,Z) 

220 

U3GRIN 

Gets  3-D  coordinates  and  a  character  from  terminal  and  returns 

them 

CALL  U3GRIN  (X.Y.Z.ICHAR) 

222 

U3IMAG 

Applies  general  3-D  image  transformations  to  retained'  frames/ 

segments 

CALL  U3IMAG  (X.Y.Z.SX.SY.SZ.RX.RY.RZ.SEGNAM) 

223 

U3LINE 

Connects  3-D  arrays  of  points  (X.Y.Z)  with  current  line  option 

224 

CALL  U3LINE  (X.Y.Z.PTS) 


U3M0VE 


Moves  pen  invisibly  in  3-D  space 


225 


v 


U3PEN 

U3PEN1 

U3PLAC 

U3PLOT 

U3PRNT 

U3ROTA 

U3SCAL 

U3STUD 

U3WHER 

U3WNDO 

U3WRIT 


CALL  U3MOVE  (X,Y,Z) 

Draws  a  line  from  current  pen  position  to  given  3-D  coordinates  226 
CALL  U3PEN  (X.Y.Z) 

Sets  one  USET'  option  for  this  call  only  before  executing  3-D  pen 
movement  250 

CALL  U3PEN1(X,Y,Z, OPTION) 


Applies  3-D  translation  image  transformation  to  'retained'  frames/ 
segments 

CALL  U3PLAC(X,Y,Z,SEGNAM) 


Draws  a  general  purpose  graph  in  3-D  space 

CALL  U3PLOT  (X.Y.Z.CURVES.PTS.OPTS) 

Displays  textual  data  at  pen  position  in  3-D  space 
CALL  U3PRNT  (X.Y.Z.DATA) 

Creats  a  user  coordinate  system  in  three  space  at  current  pen 
position,  rotated  as  specified 

CALL  U3ROTA  (RX.RY.RZ) 

Creates  a  user  coordinate  system  in  three  space  at  current  per 
position,  scaled  as  specified 

CALL  U3SCAL  (SX.SY.SZ) 

Gives  current  setting  of  the  3-D  user  display  area  and  windows 
CALL  U3STUD  (ARRAY) 

Returns  current  pen  position  in  current  units  in  3-D  space 

CALL  U3WHER  (X.Y.Z) 

Sets  the  virtual  3-D  window  boundaries 

CALL  U3WNDO  (XMIN.XMAX.YMIN.YMAX.ZMIN.ZMAX) 

Displays  textual  information  in  3-D  space,  returns  pen  to  original 
position 

CALL  U3WRIT  (X.Y.Z.DATA) 


253 

255 

274 

276 

277 

278 

279 

280 
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Subroutine  UAIN 


Interactive 


•b 


FUNCTION: 

This  routine  obtains  one  character  as  entered  to  signify  the  completion  of  a  graphics 
input  operation.  This  is  usually  the  result  of  a  keyboard  trike. 

CALLING  SEQUENCE: 


CALL  UAIN  (CHAR) 


Where 

CHAR  contains  the  character  obtained  from  the  terminal  in  Hollerith  format. 

OPTIONS  which  may  apply: 

KEYBOARD'.  'FUNCTIONKEY',  CURSOR',  JOYSTICK',  BALL',  'MOUSE',  'LIGHTPEN', 
TABLET' 

COMMENTS: 

The  character  requested  will  be  obtained  from  the  specified  graphics  input  device.  If  no 
explicit  USET  call  has  been  used  to  specify  an  input  device  (see  UGRIN),  the  character 
will  be  obtained  from  the  principal  input  device  for  the  terminal  being  used. 

The  USET  option  BALL'  refers  to  Trackball  input 

Programming  Notes: 
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Subroutine  UALPHA 
FUNCTION: 

This  routine  sets  the  terminal  to  alphanumeric  mode  so  that  character  output  will  appear 
on  the  control  device. 

CALLING  SEQUENCE: 


CALL  UALPHA 


OPTIONS  which  may  apply 

No  options  apply. 

COMMENTS: 

This  routine  should  be  called  whenever  the  user  wants  to  insure  that  the  terminal  is  in 
alphanumeric  mode  and  to  flush  any  buffered  graphics  I/O  (e  g.,  before  FORTRAN  I/O) 


Programming  Notea: 


Subroutine  UAOUT 
FUNCTION: 

This  routine  displays  one  character  at  the  current  beam  position  subject  to  the  margins 
or  windows  which  are  currently  set.  The  beam  is  positioned  ready  to  output  an  adjacent 
character 

CALLING  SEQUENCE: 


CALL  UAOUT  (CHAR) 


Where 

CHAR  is  an  alphanumeric  character  expressed  in  FORTRAN  Hollerith  (left- 
justified,  blank-filled)  format. 

OPTIONS  which  may  apply: 

Character  Type  HARDWARECHARACTERS’ 

SOFTWARECHARACTERS’ 

Alphanumeric  Margins 
Window  Settings 

COMMENTS: 

The  character  specified  by  CHAR  will  be  displayed  at  the  beam  position  subject  to 
margining  if  hardware  characters  are  specified  and  subject  to  windowing  if  software 
characters  are  specified  Strings  of  characters  are  more  easily  and  efficiently  displayed 
using  UPRINT  or  UWRITE  UAOUT  should  be  used  only  when  each  character  must  be 
processed  individually  before  display.  For  a  detailed  description  of  margining  and  its 
effects  see  the  write-ups  for  UPRINT  and  UMARGN.  For  a  detailed  description  of  the 
concepts  of  windowing  see  the  write-up  for  UWINDO 


Programming  Notes: 


DIMENSION  XCI O.YCI ID.ZC1 O 

DATA  X/0.,  10..  20..  30..  40..  50..  60..  70..  80..  90.. 100./ 

DATA  Y/0 . ,  t 0., 20., 30., 40.. S0.. 60.. 70., 80.. 90., t 00./ 

DATA  Z/0 . , I . , 4 . , 9 . , 1 6 . , 25 .  ,  36 . . 49 . . 64 . , 8 1 . . 1 00 . / 

CALL  USTART 

CALL  UOUTLN 

DO  I  I  -  I .  ;  t 

CALL  UPEN  CXCI5.YCI55 

1  CALL  UAOUT  C'AO 
CALL  USET  C ' NOLINE ' > 

CALL  UMOVE  CXCI3.ZC155 
DO  2  I  -  I ,  t  l 

CALL  UPEN  CXCI>,ZCI>> 

CALL  UAOUT  C'BO 

2  CONTINUE 
CALL  UEND 
STOP 

END 
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Subroutine  UAPEND 


FUNCTION: 

This  routine  copies  characters  from  the  input  Hollerith  character  string  placing  them  in 
the  output  character  buffer  When  the  designated  number  of  characters  have  been 
moved,  the  GCS  string  terminator  is  appended  to  the  end  of  the  string  in  the  output 
buffer, 

CALLING  SEQUENCE: 

CALL  UAPEND(COUNT,DATAIN,DATOUT) 


Where 

COUNT  is  the  number  of  characters  in  the  input  Hollerith  character  string. 
DATAIN  is  the  input  Hollerith  character  string. 

DATOUT  is  available  or  array  large  enough  to  hold  COUNT+1  characters 
OPTIONS  which  may  apply: 

UPSET (‘TERMINATOR. CHAR) 

COMMENTS: 

This  routine  is  useful  if  a  character  string  is  being  obtained  from  an  input  source  and  the 
GCS  string  terminator  has  not  been  included  at  the  end  of  the  string.  It  is  assumed  that 
enough  room  is  available  in  the  output  string  buffer  area  to  insert  the  GCS  string 
terminator  character. 


DATAIN,  and  DATOUT  need  not  be  distinct. 

Programming  Notes: 


Subroutine  UARC 


FUNCTION: 

This  subroutine  draws  a  part  of  a  circle;  i.e.,  an  arc  with  a  given  center,  radius,  and 
angular  span  starting  at  the  current  bean  or  pen  position.  The  arc  will  be  either  treated 
as  a  curvilinear  line  segment  with  the  current  line  option  (see  UPEN  for  description  of 
line  options)  or  treated  as  a  collection  of  straight  line  segments,  each  of  which  is  affected 
by  the  current  line  option.  Which  method  is  used  to  draw  the  arc  will  depend  on  whether 
CONTINUOUS'  or  'SEGMENTED'  has  been  set. 

CALLING  SEQUENCE: 

CALL  UARC  (X.Y.ANGLE) 

Where 

X  is  the  X  or  RADIUS  of  the  center  of  the  circle  in  current  user  units. 

Y  is  the  Y  or  THETA  coordinate  of  the  center  of  the  circle  in  current  user 

units. 

ANGLE  is  the  number  of  angular  units  to  be  subtended  by  the  arc. 

OPTIONS  which  may  apply: 

Arc  Type:  ‘CONTINUOUS’  or  SEGMENTED' 

Angle  Units:  ‘DEGREES’,  RADIANS’,  PIRADIANS',  GRADS’  or  MILS’ 

Line  Types:  Any  line  option  available  under  UPEN 

COMMENTS: 

The  arc  will  be  drawn  counterclockwise  if  ANGLE  is  positive  or  clockwise  if  ANGLE  is 
negative.  The  arc  will  extend  from  the  beam  or  pen  position  upon  invoking  UARC  for  the 
angle  specified  in  current  angular  units  (Degrees,  Radians,  or  Piradians). 

In  three  dimensional  applications,  the  arc  produced  by  a  call  to  UARC  will  lie  in  the 
current  X-V  plane. 


Programming  Notes: 


CALL  USTART 
CALL  UOUTLN 

CALL  UPEN I  <40.0,50.0, ' N COORDINATES ' ) 
CALL  UMOVE  C 40. 0.50.0) 

CALL  UARC  C40. 0.20. 0,80.0) 

CALL  UWHERE  CX.Y) 

CALL  UPENt  CX.Y, ' NCOORDINATES ' ) 

CALL  UPEN I  C  40 . 0, 20 . 0, ' NCOORDINATES ' ) 

CALL  UEND 

STOP 


Subroutine  UASPCT 

3D 

FUNCTION: 

satisfies'the  rp?ov!SlVaspectSratiad'SPlay  SUr,aCe  b0Undaries  ,0  ,he  'argest  area  which 


CALLING  SEQUENCE: 


CALL  UASPCT(RATIO) 


Where 


RAT'°  SiSS"  "r"”"11"*  «»  ">*>  horijonLI  to 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

If  UDIMEN  is  to  be  used,  it  should  be  called  before  UASPCT. 

The  aspect  ratio  provided  may  be  computed  as  follows: 

RATIO  =  HORIZONTAL  SIZE/VERTICAL  SIZE 

fKovited0^^^^!^  tte surface  fsee 
to  left-adjusted/bottom-adjusted  (‘LADJi)<5TFrv  ®  ^spect-ratioed  display  surface 
JUSTED),  or  right-adjusfed/toS-adiJsted^  W?Dj5qS5!JUSTK  Cen,ered  ('CAD 
formatted  display  surface.  Note  that  left  and  bnifi  J  ,  0,r  ^ADJUSTED1)  on  the 

right-  and  top-adjusted  are  the  same  settinn  w/h0^  ad,usted  are  fhe  same  setting  and 
relationship  between  the  requested  aspect  ratted Sfap?lied  wi"  dePend  on  the 
surface.  The  default  aspect  ratio  is  0  (i.e.,  the 

Programming  Notes: 


26 


Subroutine  UAVERG 


FUNCTION: 

To  compute  a  moving  average  forecast  for  time  series  data 

CALLING  SEQUENCE: 

CALL  UAVERG  (ARRAY, POINTS, FCST, TIME) 

Where 

ARRAY  is  a  real  array  of  size  POINTS  which  is  the  input  time  series  data. 

POINTS  is  the  number  of  input  points. 

FCST  is  a  real  array  of  size  POINTS-TIME+1  which  is  the  time  series  moving 

average  forecast  for  periods  TlME+1  to  POINTS+1 

TIME  is  the  number  of  previous  periods  to  be  used  for  each  average. 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

The  number  of  input  data  points  must  be  greater  than  one.  The  number  of  previous 
periods  which  are  used  to  compute  the  moving  average  must  be  greater  than  zero  and 
not  greater  than  the  number  of  input  data  points. 

Note  that  this  routine  represents  one  of  the  basic  tools  for  time  series  analysis.  The  user 
is  urged  to  consult  a  qualified  reference  on  time  series  analysis  for  a  complete 
description  of  the  methods  involved  in  this  routine.  Other  techniques  such  as  base 
series  correction,  cyclic  analysis,  and  exponential  smoothing  are  necessary  to 
synthesize  a  meaningful,  composite  forecast. 

Programming  Notes: 
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Subroutine  UAXIS 
FUNCTION: 

This  routine  creates  axes  of  the  type  specified  by  the  user.  Also  provided  are  numeric 
scaling  and  labeling  and  alphanumeric  labeling.  The  axes  are  created  in  the  UDAREA 
which  is  set  prior  to  entering  UAXIS.  The  user  window  may  also  be  modified  to  reflect  the 
actual  scaling  used.  Upon  return  from  UAXIS,  the  user  window  will  be  set  to  the  scaling 
used  to  draw  the  axes.  The  device  area  will  be  reduced  if  'EDQEAXES'  are  specified  to 
accommodate  the  labeling  requested.  If  ‘ZEROAXES’  or  'PENAXES'  are  specified,  the 
device  area  will  not  be  changed  since  the  labeling  will  appear  in  the  device  area  setting. 

CALLING  SEQUENCE: 

CALL  UAXIS  (XMIN.XMAX.YMIN.YMAX) 


Where 


XMIN 

is  the  minimum  X-value 

XMAX 

is  the  maximum  X-value 

YMIN 

is  the  minimum  Y- value 

YMAX 

is  the  maximum  Y- value 

to  be  contained  on  the  axis  in  virtual  units, 
to  be  contained  on  the  axis  in  virtual  units, 
to  be  contained  on  the  axis  in  virtual  units, 
to  be  contained  on  the  axis  in  virtual  units. 


OPTIONS  which  may  apply: 


Axis  Existence: 
Axis  Format: 
X-Axis  Labeling: 
Y-Axis  Labeling: 
Axis  Positioning 


■NOAXES’,  'XAXIS',  ‘YAXIS’,  'XYAXIS' 

•PLAINAXES’,  TICAXES’,  GRIDAXES' 

•XNUMERIC,  ‘XALPHALABEL’,  'XBOTH',  'NOXLABEL' 
'YNUMERIC’/YALPHALBEL',  'YBOTH',  ‘NOYLABEL’ 

■ZEROAXES’,  ’XZEROYEDGE’,  YEDGEXZERO',  'XEDGEYZERO', 
•YZEROXEDGE’,  'EDGEAXES',  'PENAXES' 


Numeric  Label 
Format: 

Scaling  Type: 
X-Axis  Type: 
Y-Axis  Type: 

Log  Base. 

Coordinate  Type. 


'IFORMAT',  'GFORMAT',  ‘BESTFORMAT’,  EFORMAT’ 
‘AUTOSCALE’,  'FULLSCALE',  'OWNSCALE' 

‘NOLOGARITHMS’,  LOGXAXIS' 

‘NOLOGARITHMS’,  LOGAXIS' 

UPSET(‘BASE’,base)  where  base  is  either  a  number  or  the 
character  string  IHE 
POLAR',  ‘RECTANGULAR’ 


COMMENTS: 

UAXIS  is  a  general  purpose  axis  drawing  and/or  plot  labeling  routine.  The  options 
indicated  above  are  independent  of  each  other  type  designations  so  that  several 
different  options  might  appropriately  be  chosen.  The  UAXIS  subroutine  is  also  used  by 
the  high-level  graphing  routines  (see  UPLOT)  to  create  their  axes. 

Each  of  the  USET  options  which  effect  the  UAXIS  routine  is  described  below.  These 
same  options  apply  when  subroutine  UPLOT  or  subroutine  UPLOT1  is  called 


Programming  Notea: 


Axis  Existence: 

NOAXES  —  Neither  the  X-axis  nor  the  >  -axis  will  be  displayed 

XAXIS  —  Only  the  X  axis  will  ue  displayed 

YAXIS  —  Only  the  Y-axis  will  be  displayed 

XYAXES  —  both  the  X-  and  Y-axis  will  be  displayed 

Axis  Format: 

PLAINAXES  —  The  axis  specified  will  appear  as  a  solid  line. 

TICAXES  —  The  axis  specdied  will  appear  as  a  ticced  line  The  iic 

intervals  will  be  determined  from  the  current  setting  of  the 
UPSET  parameters  TICX  and  TICY  which  should  be 
specified  in  the  same  units  to  be  used  in  plotting  the 
functions  If  a  tic  interval  ot  zero  is  specified  a  suitable  tic 
interval  will  be  chosen  by  UAXIS 

GRIDAXES  —  A  grid  will  be  formed  in  the  display  area.  The  interval 

between  grid  lines  is  determined  in  the  same  way  as  for 
TICAXES  In  the  case  of  tog  axes,  the  tic  interval  refers  to 
the  cycle  interval  In  the  case  cf  polar  axes,  the  tic  interval 
refers  to  the  radial  distance  between  the  concentric 
circles  ot  the  grid  This  radial  distance  is  obtained  from 
the  value  of  TICX 

Axis  Positioning: 

The  user  is  expected  to  establish  the  UDAREA  he  desires  before  calling  UAXIS.  For  all 
the  options  indicated  below,  no  part  of  the  axes  or  the  associated  labels  will  appear 
outside  the  UDAREA  which  is  set  prior  to  entry  to  UAXIS 

EDGEAXES  —  The  room  needed  for  the  'axes'  specified  labeling  is 

reserved  from  the  UDAREA  set  on  input  and  a  new 
UDAREA  is  established  which  describes  the  remaining 
plotting  area  The  axes  will  be  drawn  along  the  edge  ot 
this  new  UDAREA 

ZEROAXES  —  If  the  zero  point  falls  between  the  minimum  and  maximum 

input  values  for  either  X  or  Y,  the  axes  a^e  drawn  along  the 
zero  value  from  border  to  border  of  the  UDAREA  Numeric 
labels  will  appear  directly  below  the  X-axis  and  to  the  left 
of  the  Y-axis  Alphanumeric  X-labels  will  appear  along 
the  bottom  edge  of  the  UDAREA  and  the  alphanumeric  Y- 
labels  will  appear  along  the  left  edge  of  the  UDAREA.  If 
the  zero  point  tor  either  axes  is  not  between  the  minimum 
input  values,  the  axis  will  default  to  EDGEAXIS  format. 

PENAXES  —  The  intersection  of  the  axes  is  defined  to  be  at  the  beam 

position  upon  entry  to  UAXIS  It  the  beam  position  is  out¬ 
side  the  range  of  values  furnished  as  input,  the  axis  which 
is  outside  the  range  will  default  to  EDGEAXIS  format. 

YEDGEXZERO  -  The  X-axis  will  be  in  ZEROAXIS  format  and 

XZEROYEDGE  the  Y-axis  will  be  in  EDGEAXIS  format. 


XEDGEYZERO 

YZEROXEDGE 


The  X-axis  will  be  EDGEAXIS  format  and 
Y-axis  will  be  in  ZEROAXIS  format. 


Axis  Type: 
NOLOGARITHMS 

XLOGARITHM 

YLOGARITHM 

XYLOGARITHM 

LOGARITHMIC 


—  The  X  and  Y  axes  are  both  linear 

—  The  X  axis  is  a  logarithm  based  axis  while  the  Y  axis  is 
linear 

—  The  Y  axis  is  a  logarithm  based  axis  while  the  X  axis  is 
linear 

Both  the  X  and  Y  axes  are  logarithm  axes 


Note:  The  base  of  the  logarithms  used  in  the  axes  is  set  by  a  call  to  UPSET,  i.e.,  CALL 
UPSET  ('BASE',  base)  where  base  is  either  a  numeric  value  or  the  character  string 


IHE. 


Coordinate  Type: 

RECTANGULAR  —  The  input  coordinates  are  rectangular.  Logarithmic  or 

linear  axes  can  be  specified. 

POLAR  —  Input  coordinates  are  polar.  Only  polar  axes  will  be  cre¬ 

ated  by  UAXIS. 

X-Axis  Labeling: 

NOXLABEL  —  No  labeling  should  appear  along  the  X-axis. 

XNUMERIC  —  Numeric  labels  should  be  created  along  the  X-axis  at  the 

tic-intervals  specified  by  TICX  (see  Axis  Format  above). 
The  values  for  the  numeric  labels  will  be  derived  as 
specified  in  the  scaling  options  described  below. 

XALPHANUMERIC  —  Alphanumeric  labels  will  appear  in  the  location  specified 

in  the  Axis  Position  Option  (see  above).  The  contents  of 
the  label  can  be  specified  by  calling  UPSET  with  argu¬ 
ments  ‘XLABEL’  and  a  GCS  character  string  as  the  value 
(for  a  description  of  GCS  character  strings  see  UPRINT). 

XBOTHLABELS  —  Both  the  alphanumeric  and  numeric  labels  will  appear 

along  the  X-axis. 


Y-Axis  Labeling: 

NOYLABEL  —  No  labeling  should  appear  along  the  Y-axis. 

YNUMERIC  —  labels  should  be  created  along  the  Y-axis  at  the  tic  inter¬ 

vals  specified  by  TICY  (see  Axis  Format  above).  The 
values  for  the  numeric  labels  will  be  derived  as  specified 
in  the  scaling  options  described  below. 


YALPHANUMERIC  —  Alphanumeric  labels  will  appear  in  the  location  specified 

by  the  Axis  Positioning  Option  (see  above).  The  contents 
of  the  label  can  be  specified  by  calling  UPSET  with  argu¬ 
ments  ‘YLABEL’  and  a  GCS  character  string  as  the  value 
(for  a  description  of  GCS  character  strings  see  UPRINT). 
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ybothlabels 


Both  the  alphanumeric  and  numeric  labels  will  appear 
along  the  Y-axis 


Scaling  Type: 
AUTOSCALE 


FULLSCALE 

OWNSCALE 


Numeric  Label  Format: 

IFORMAT 

GFORMAT 

BESTFORMAT 

EFORMAT 


The  range  of  values  to  be  plotted  is  examined  and  scaling 
occurs  so  that  nice'  numbers  will  appear  at  the  tic  marks 
A  slight  expansion  of  the  range  may  be  necessitated  to 
incorporate  this  feature  The  UWINDO  is  set  to  the 
expanded  range  as  identified 

The  full  range  of  values  specified  in  the  input  arguments 
are  examined  If  zero  is  not  within  the  range  of  X  values, 
the  appropriate  limit  is  extended  to  zero.  The  UWINDO  is 
set  to  this  resulting  range 

The  UWINDO  setting  upon  entry  to  UAXIS  is  used  to  deter¬ 
mine  the  scale  limits  No  change  is  made  to  the  UWINDO 
and  a  zero  value  is  not  forced  to  the  X  -scale.  Nice'  num¬ 
bers  may  not  necessarily  appear  as  numeric  labels 


All  numeric  labels  will  appear  as  integers.  Truncation  of 
fractional  values  may  occur. 

All  numeric  labels  will  appear  in  either  FORTRAN  F  or  E 
format  depending  on  the  value 

The  numeric  labels  will  appear  in  the  format  which  is  most 
appropriate  to  the  value.  If  the  value  is  an  integer,  it  will 
appear  as  IFORMAT.  Otherwise,  it  will  appear  as  GFOR¬ 
MAT. 

The  numeric  labels  will  appear  in  the  FORTRAN  E  format. 
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tea 

140 

120 


80 

60 

40 

20 

0 

-20 

-40 


-ea 

-60 


-fl  -4  -2 

-€  -3 


-1  1 
EDGEAXES 


CAUL  U6TART 

CAUL  UPSET  C 'TERMINATOR' „ 

CALL  USET  < ' XBOTHLAJELS ' 5 

CAUL  UPSET  C'XLABEL','  EDGEAXES# O 

CAUL  UAXIS  <-6.32.4.00,-03.4. 106. 450) 

CAUL  UEND 

STOP 

END 


32 


3 


2 


zeroaxes  -» 


-2 


-3 


-4 


-5 


CALL  USTART 

CALL  UPSET  <' TERMINATOR 
CALL  USET  C' ZEROAXES O 
CALL  USET  C'XBOTHLABELSO 
CALL  UPSET  C ' XLABEL ' , ' ZEROAXES; ' 5 
CALL  UAXIS  C— 6 .  ,2 .  ,  -4> .  ,  4 . 5 
CALL  UENP 
.  STOP 
1  END 
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-6 


CALL  USTART 

CALL  UPSET  C' TERMINATOR', O 
CALL  USET  C' PEN AXES') 

CALL  USET  < ' XBOTHL ABELS ' 5 
CALL  UPSET  C ' XLABEL ' , ' PENAXES ;  '  ) 
CALL  UMOVE  C-3.,2.) 

CALL  UAXIS  C-6. , 2 . , -6. , 4. ) 

CALL  UENP 

STOP 

END 
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CALL  USTART 

CALL  UPSET  C'TERHINATOR'. ':> 

CALL  UPSET  C ' XLABEL ' ,  ' POLAR  GRIP;' 5 

CALL  USET  C ' POLAR O 

CALL  USET  C'GRIDO 

CALL  USET  C'XBOTO 

CALL  USET  C' ZERO AXIS') 

CALL  UAXIS  C— 6 . ,  6  .  ,  0 . , 360 . 5 

CALL  UEND 

STOP 


Subroutine  UBAR 
FUNCTION: 

This  routine  draws  a  general  purpose  bar  graph.  The  current  user  display  area  will  be 
used  and  the  bar  graph  will  be  drawn  and  scaled  according  to  user  specifications. 

CALLING  SEQUENCE: 

CALL  UBAR  (ARRAY, PTS, LABELS, XMAXL) 


Where 


ARRAY  is  a  real  array  of  data  points  from  which  the  bar  graph  is  drawn. 

PTS  is  a  real  constant  or  variable  which  is  the  number  of  elements  in  ARRAY. 

LABELS  is  an  array  of  labels  for  the  elements  within  the  bar  graph. 

1 

XMAXL  is  a  real  constant  or  variable  which  is  the  maximum  length  of  a  label  or 
longest  label  in  the  LABELS  array. 

OPTIONS  which  may  apply: 


X-Axis  Labeling: 
Y-Axis  Labeling: 
Display  Area: 
Axis  Existence: 
Axis  Format: 


‘XNUMERIC’  ‘X ALPHANUMERIC'  ‘XBOTH’  'NOXLABEL' 
YNUMERIC’  ^ALPHANUMERIC’  ‘YBOTH’  ‘NOYLABEL’ 
‘NEWSCALE’  'OLDSCALE' 

‘NOAXES’ 

‘TICAXES’ 


COMMENTS: 


UBAR  will  place  the  labels  from  the  label  array  on  the  individual  bars  starting  from  the 
bottom  up.  All  input  data  is  normalized  so  that  each  input  value  will  appear  as  a 
percentage  of  the  total  of  the  data  array.  The  specification  of  anything  other  than 
TICAXES'  will  cause  plain  axes  to  be  drawn.  The  specification  of  'NOAXES’  will  cause 
suppression  of  graphic  output  so  that  only  the  labels  and  values  will  appear. 


Programming  Notes: 


Interactive 


Subroutine  UBELL 
FUNCTION: 

This  routine  causes  an  audible  alarm  (bell)  to  sound  at  the  terminal. 

CALLING  SEQUENCE: 


CALL  UBELL 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 


Terminals  which  have  no  audible  device  may  simulate  the  alarm 
message  to  the  terminal. 

Programming  Notea: 


by  sending  a  visual 
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Subroutine  UCALL 


3D 


FUNCTION: 

This  routine  invokes  an  already  constructed  data  structure.  The  request  coordinate 
system  transformation  is  established  and  then  each  element  of  the  structure  is 
executed. 

CALLING  SEQUENCE: 

CALL  UCALL(X,Y,SX,SY,R,NAME) 


Where 

X,Y  are  the  coordinates  of  the  origin  of  the  structure  coordinate  system  in 

current  coordinate  system  units. 

SX,  SY  are  the  scale  factors  of  the  structure  coordinate  system. 

R  is  the  rotation  of  the  structure  coordinate  system  in  relation  to  the  current 

reference  system. 

NAME  is  the  eight  character  name  of  the  structure  being  invoked.  This  structure 
must  be  defined  in  the  current  'LIBRARY'  file. 

COMMENTS: 

The  current  coordinate  system  is  saved  prior  to  applying  the  structure  coordinate 
transformation.  Up  to  three  levels  of  recursive  calls  to  UCALL  can  be  handled. 

This  subroutine  can  be  used  in  a  3-D  environment  if  the  transformation  so  specified  is  to 
be  applied  only  in  the  XY  plane  of  the  current  coordinate  system. 

Programming  Notes: 
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Subroutine  UCHART 
FUNCTION: 


This  routine  draws  a  grouped  bar  chart  for  multi-valued  data.  The  current  user  display 
area  will  be  used  and  the  chart  will  be  drawn  and  scaled  according  to  user 
specifications 

CALLING  SEQUENCE: 

CALL  UCHART(ARRAY, GROUPS, BARS, LABELS, YMAXL) 

Where 

ARRAY  is  a  real  array  of  data  points  from  which  the  chart  is  drawn 

GROUPS  is  a  real  constant  or  variable  which  is  the  number  of  groups 

BARS  is  a  real  constant  or  variable  which  is  the  number  of  bar  graphs  in  each 

group 

LABELS  is  an  array  of  labels  for  each  group 

YMAXL  is  a  real  constant  or  variable  which  is  the  maximum  length  of  a  label  or  the 
length  of  the  longest  label  in  the  array  LABELS 

OPTIONS  which  may  apply: 


X-Axis  Labeling: 
Y-Axis  Labeling: 
Display  Area: 
Axis  Existence. 
Axis  Format 


•XNUMERIC',  ‘XALPHABETIC’,  'XBOTH',  ’NOXLABEL’ 
‘YNUMERIC’,  ^ALPHABETIC’,  ’YBOTH’,  ’NOYLABEL’ 
‘NEWSCALE’,  ’OLDSCALE’ 

‘NOAXES’ 

‘TICAXES’ 


COMMENTS: 


The  specification  of  anything  other  than  ’TICAXES’  wilJ  cause  plain  axes  to  be  drawn. 
The  specification  of  ‘NOAXES’  will  cause  suppression  of  graphic  output  so  tht  only  the 
labels  and  values  will  appear.  The  X-axis  and  Y-axis  labeling  options  will  not  affect  the 
output  of  the  group  labels  If  group  labels  are  not  desired,  then  YMAXL  should  be  set  to 
zero. 


Programming  Notes: 
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YEARS  1875,  1876  AfO  (PROJECTED)  1877 


DIMENSION  YEARS (8) 

CHARACTER  LABELS* l BC3) 

DATA  YEARS/88., 86., 88., 58., 60., 78., 76., 68., 85./ 

DATA  LABQ-S/'WIDGIT  MFG, ', 'CORBALMITE, ', 'T6IF  INC., '/ 

CALL  USTART 

CALL  UPSET  C ' TERMINATOR 
CALL  USET  C  ' XALPHABETIC' ) 

CALL  UPSET  ('XLABEL', 'YEARS  1876,  1876  AND  (PROJECTED)  1877,') 
CALL  USET  C'YBOTHL ABELS') 

CALL  UPSET  C'YLABELS'. 'PROFITS  IN  MILLIONS  OF  DOLLARS,') 

CALL  UCHART  CYEARS. 3 . . 3 . , LABELS. 1 8 . ) 

CALL  UEND 

STOP 

END 
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Subroutine  UCLIP 


FUNCTION: 

This  routine  tests  the  validity  of  the  clipping  parameters  and  stores  them  into  the  GCS 
COMMON  area  if  they  are  valid. 

CALLING  SEQUENCE: 

CALL  UCLIP  (XMIN.XMAX.YMIN.YMAX) 

Where 

XMIN  is  the  leftmost  edge  of  the  window. 

XMAX  is  the  rightmost  edge  of  the  window. 

YMIN  is  the  lower  edge  of  the  window. 

YMAX  is  the  upper  edge  of  the  window. 

OPTIONS  which  may  apply 
No  options  apply 
COMMENTS: 

This  routine  will  test  window  edge  parameters  for  validity  and  return  an  error  condition  to 
the  caller  if  they  are  incorrect.  If  they  are  correct,  then  the  arguments  will  be  converted  to 
the  device  basic  units  and  will  post  then  into  the  GSA  subject  to  the  limitation  of  the 
device  space.  A  flag  is  also  set  to  indicate  that  the  window  has  been  changed. 

Programming  Notes: 
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Subroutine  UCLOSE 

3D 

FUNCTION: 

This  routine  causes  the  currently  open  segment/frame  to  cease  to  be  open. 

CALLING  SEQUENCE: 

CALL  UCLOSE(SEGIO) 

Where 

SEGID  is  the  segment  identifier  of  the  currently  open  segment  (see  UOPEN  for 
description  of  SEGID). 

OPTIONS  which  m*y  apply: 

Segment/Frame  Identifier  Mode:  ‘FNAME’,  ‘FNUMBER’ 

COMMENTS: 

The  currently  open  segment  is  closed  irrelevant  of  the  type  of  segment  or  the  existence 
of  image  transformations.  The  closed  frame  will  replace  an  existing  segment  with  the 
Same  identifier  thus  insuring  that  a  complete  image  is  always  visible 

An  error  will  be  generated  if  SEGID  does  not  agree  with  that  of  the  currently  open 
segment.  However,  the  segment  will  still  be  closed. 

Programming  Notes: 
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Subroutine  IICOLOR 


Function: 

This  routine  defines  entries  in  a  program  modifiable  table  of  colors. 

Calling  sequence: 

CALL  UCOLOR(CLRIDX,CLRCNT, CLRNAM, CLRVAL) 

Where 

CLRIDX  is  the  index  number  of  the  color  table  entry  to  be  redefined.  Note  that  this  is 
the  same  number  used  when  setting  the  color  using  UPSET  or  USET 

CLRCNT  specifies  the  number  of  components  in  the  color  definition  vector.  At  least 
one  component  and  a  maximum  of  seven  components  may  be  specified 

CLRNAM  is  an  array  containing  the  names  of  the  color  components.  Valid  names  are 
'RED',  GREEN',  'YELLOW',  'BLUE',  'MAGENTA'  'CYAN',  AND 
'WHITE'.  Only  the  first  four  characters  of  each  name  are  significant.  The 
names  must  occupy  no  more  than  one  word  in  the  array. 

CLRVAL  is  an  array  containing  the  percentages  of  intensity  for  each  component 
specified  in  the  CLRNAM  array.  Percentage  values  may  range  from  0  to  100 
and  indicate  the  proportion  of  maximum  application  of  the  specified  color 
component. 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

This  routine  will  verify  correct  color  definitions  for  devices  which  have  no  modifiable  col¬ 
or  tables. 

If  duplicate  color  component  names  are  provided,  an  error  will  be  generated  and  the  col¬ 
or  will  not  be  defined. 

This  routine  uses  the  Red/Green/Blue  (RGB)  or  Magenta/Yellow/Cyan  method  of  color 
definition.  It  should  be  noted  that  the  intensity  attribute  (UPSET, 'BRIGHTNESS  )  serves 
as  a  master  intensity  control  to  modulate  the  colors. 


Programming  Notas: 


Subroutine  UCONIC 
FUNCTION: 

This  routine  allows  the  user  to  draw  a  generalized  conic  section  having  a  given  focus, 
directrix,  eccentricity,  and  starting  and  ending  sweep  positions.  The  conic  sections  that 
may  be  drawn  are  the  circular  arc,  ellipse,  parabola,  hyperbola,  and,  if  the  distance  bet¬ 
ween  the  focus  and  the  directrix  is  zero,  point, 

CALLING  SEQUENCE: 

CALL  UCONIC  (X,Y,P,E,TH1  ,TH2) 

Where 

X  is  the  X-  or  RADIUS  coordinate  of  the  focus  of  the  conic  section. 

Y  is  the  Y-  or  THETA  coordinate  of  the  focus  of  the  conic  section. 

P  is  the  distance  from  the  focus  to  the  directrix. 

E  is  the  eccentricity. 

TH1  is  the  initial  sweep  position  in  current  angular  units. 

TH2  is  the  terminal  sweep  position  in  current  angular  units. 

OPTIONS  which  may  apply: 

•CONTINUOUS’,  SEGMENTED'  (see  UARC  write  up) 

Line  options  (see  UPEN  write  up) 

•RADIANS',  ‘DEGREES’,  PIRADIANS’.  GRADS'  or  ' MILS’  'see  UARC  write  up) 

Pen  Coordinate  Options  (see  UPEN  write  up) 

UPSET  Option:  'ORIENTATION' 

COMMENTS: 

The  basis  for  UCONIC  is  the  generalized  conic  equation: 

R  =  (E*P)/(1  -E'COS(THETA)) 

By  suitably  modifying  the  values  of  the  parameters  P  and  E,  all  types  of  conic  sections 
can  be  created  The  following  describes  the  effects  induced  by  different  values  of  P  of  E. 

P.GT.O  the  focus  is  to  the  right  (below  the  directrix). 

P  LT .0  the  focus  is  to  the  left  (above  the  directrix). 

P  =  0  the  conic  will  be  a  point  at  X,Y. 

E  =  0  the  conic  is  a  circular  arc  with  center  at  X.Y  and  RADIUS  P/2  subtending 

the  angular  range  from  the  TH1  to  TH2. 

O.LT.ABS 

(E) .LT.  1  the  conic  is  an  ellipse. 


ABS(E)  =  1  the  conic  is  a  parabola 


ABS(E).GT.1  the  conic  is  a  hyperbola. 

E.GT.O  the  conic  is  oriented  along  the  X-axis 

E.LT.O  the  conic  is  oriented  along  the  Y-axis 


All  of  the  line  options  and  coordinate  options  which  apply  to  UPEN  will  also  apply  to 
UCONIC.  Thus,  conic  sections  may  be  rotated  to  any  angle  by  defining  a  suitable  user 
coordinate  system 

If  a  conic  section  of  360  degree  sweep  is  specified,  the  line  terminator  will  not  be  drawn 
when  CONTINUOUS'  mode  has  been  specified.  See  the  UARC  write  up  for  mo'e 
information  on  the  use  of  ‘CONTINUOUS’  and  'SEGMENTED'.  The  circle  is  a  degenerate 
case  not  fully  handled  by  the  generalized  conic  equation.  For  completeness  a  circle  with 
arbitrarily  assigned  RADIUS  of  P/2  will  be  generated  when  E  has  a  value  of  zero. 

If  an  angle  of  orientation  of  the  conic  is  specified  via  UPSET,  then  the  conic  section  will 
be  oriented  as  specified  around  the  point  of  intersection  of  the  directrix  and  the  semi¬ 
major  axis. 

fn  three  dimensional  applications,  the  conic  section  drawn  by  UCONIC  will  lie  in  the 
current  XY  plane 

Programming  Note*: 
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DIMENSION  XC45,YC4:>,PC45,EC4:> 

DATA  INDEX, Y0, X. Y. P, E/0, S. 73, 1 0. , SO . . 00. .SO. , 50. , 10. ,S0 . , 00 
&  13.,-13..-13.,I3.,1..-I.,I..-I./ 

CALL  USTART 
DO  t  I  -  t,  2 
X0  •  —I .82 
Y0  «  Y0  -  2.00 
DO,  I  0  -  I,  2 
X0  -  X0  ♦  2.00 
INDEX  -  INDEX  ♦  t  I 

CALL  UOAREA  CX0. CX0+2.S75. Y0. CY0»2.S7?> 

CALL  UOUTLN 

CALL  U CO NIC  CX<INDEX3,YCINDEX>,PCINDEXi,ECINDEX5, 0.0. 300.05 
I  CONTINUE 
CALL  UEND 
STOP 


Subroutine  UCONTR 
FUNCTION: 

This  routine  draws  a  set  of  user  specified  contours  on  a  set  of  data  Z  =  Z(X,Y),  where  Z  is 
defined  on  a  regular  rectangular  array 

CALLING  SEQUENCE: 

CALL  UCONTR(Z,X,Y,A,FX,FY,CURVE,FN) 


Where 

Z  is  a  real  array  having  dimensions  IFIX(FX)  by  IFIX(FY)  containing  the 

function  values. 

X  is  a  real  array  of  length  IFIX(FX)  containing  the  X  axis  values 

Y  is  a  real  array  of  length  IFIX(FY)  containing  the  Y  axis  values 

FX  floating  point  representation  of  the  length  of  the  X  array,  also  the  leading 

dimension  of  the  Z  array  in  floating  point  format 

FY  Moating  point  representation  of  the  length  of  the  Y  array,  also  the  second 

dimension  of  Z  in  floating  point  format 

CURVE  array  containing  the  values  of  the  contours  which  are  to  be  drawn 

FN  number  of  contours  to  be  drawn.  Also,  the  length  (in  floating  point  format) 

of  CURVE 


A  working  array  of  same  size  and  dimensions  as  Z. 

OPTIONS  which  may  apply: 


Coordinate  Type  Options: 

Scaling  Type  Options: 
Scale  Availability  Options 
Pen  Options: 


‘RECTANGULAR’,  'POLAR',  'LOGARITHMIC', 
UAXIS  Options,  (see  (JAXIS  write  up) 
‘AUTOSCALE’,  'FULLSCALE',  OWNSCALE' 
‘NEWSCALE’,  OLDSCALE’ 

See  UPEN  write  up 


COMMENTS: 


The  algorithm  used  in  UCONTR  is  based  on  linear  interpolation  between  the  grid  points. 


Programming  Notaa: 
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Subroutine  UCOSYS 
FUNCTION: 

The  specified  user  coordinate  system  is  created  using  the  position,  scale,  and  rotation 
specified  in  the  arguments,  and  plotting  in  the  new  coordinate  system  is  automatically 
activated 

CALLING  SEQUENCE: 

CALL  UCOSYS  (X.Y.SCLX.SCLY, ANGLE) 


Where 

X  is  the  X-  or  RADIUS  coordinate  (in  the  current  coordinate  system)  of  the 

origin  of  the  coordinate  system. 

Y  is  the  Y-  or  THETA  coordinate  (in  the  current  coordinate  system)  of  the 

origin  of  the  new  coordinate  system. 

SCLX  is  the  ratio  of  the  unit  length  in  the  new  X  direction  to  the  unit  length  in  the 

current  X  direction. 

SCLY  is  the  ratio  of  a  unit  length  in  the  new  Y  direction  to  the  unit  length  in  the 

current  Y  direction. 

ANGLE  is  the  rotation  factor  which  is  applied  to  the  new  coordinate  system  in 
current  angular  units. 

OPTIONS  which  may  apply: 

‘WORKINGAXIS’ 

REFERENCEAXIS' 

UPSET  option  ZVALUE' 

COMMENTS: 

The  execution  of  this  subroutine  causes  the  creation  of  a  new  origin  (0,0.)  at  the 
specified  position  with  respect  to  the  current  origin.  The  new  coordinate  system  is 
rotated  about  the  new  origin  by  the  specified  angle  and  has  unit  scales  in  the  X  and  Y 
direction  as  specified.  If  GCS  is  in  'WORKINGAXIS'  mode,  the  coordinate  system  is 
created  on  a  temporary  basis.  The  coordinate  system  composition  has  no  effect  on 
subsequent  coordinate  system  composition.  If  GCS  is  in  ‘REFERENCEAXIS’  mode,  the 
coordinate  system  composition  is  based  upon  the  current  coordinate  system.  All 
coordinate  system  or  'SYSTEM'  coordinate  system.  At  any  time  the  user  can  ensure  that 
his  secondary  coordinate  system  is  composed  with  respect  to  the  system  coordinate 
system  by  the  use  of  the  following  GCS  subroutine  call. 

CALL  USET('SYSTEM') 

In  addition,  the  above  call  may  be  used  at  any  time  to  ignore  the  current  user  coordinate 
system.  To  restore  the  current  user  coordinate  system,  the  following  GCS  subroutine 
call  is  used: 

CALL  USET  OUSERAXIS') 

In  a  sense,  a  user  always  has  two  user  coordinate  systems,  a  permanent  or  reference 
system,  and  a  temporary  or  working  system.  In  ‘WORKINGAXIS’  mode,  the  working 
system  is  always  ahead  of  the  reference  system  in  a  mathematical  sense.  In 


'REFERENCEAXIS'  mode,  the  working  system  is  mathematically  identical  to  the 
reference  system,  thus  no  new  coordinate  system  is  invoked  in  switching  from  reference 
system  mode  to  working  system  mode.  However,  by  switching  in  the  opposite  direction, 
the  last  reference  system  becomes  the  current  system. 

Considerable  care  should  be  exercised  when  utilizing  the  ‘REFERENCEAXIS’  of 
cumulative  mode,  especially  in  conjunction  with  non-uniform  axis  scaling.  A  coordinate 
system  which  is  superimposed  upon  a  nonuniform  coordinate  system  and  rotated  by  a 
non-zero  angle  will  contain  a  skew  factor  resulting  in  axes  which  are  not  normal  to  each 
other.  Graphic  output  drawn  in  such  a  system,  although  mathematically  correct,  may  be 
difficult  to  understand  and  visualizo. 

In  three  dimension  applications,  the  invocation  of  UCOSYS  performs  a  three 
dimensional  transformation  in  the  current  X-Y  plane,  specified  by  the  UPSET  parameter 
ZVALUE’,  with  a  scale  factor  of  1.  in  the  Z  direction,  and  rotation  factors  of  0.  around  the 
X  and  Y  axis. 


Programming  Notes: 


CALL  USTART 
CALL  UOUTLN 

CALL  UCOSYS  CSO .  .50 . . I . . 1 . . O. > 

J  -  I 

100  CALL  UMOVE  C0..-t0.i 
CALL  UPEN  C2O..-10.J 
CALL  UPEN  C20..I0.3 
CALL  UNOVE  C22..0.5 
CALL  UPEN  C0..20.5 
CALL  UMOVE  C6..-6.5 
CALL  URECT  <8..  t  .5 
IP  Cl  .EQ.  25  GO  TO  000 
CALL  UCOSYS  C60 . . 50. . -1 . . I . . 0 . 5 
1-2 
GO  TO  100 

000  CONTINUE 
CALL  UENP 
STOP 
END 


b  I 


CALL  USTART 

CALL  UWINDO  C-t . . tB..-t . . 18. 5 
CALL  UOUTLN 
CALL  AXIS 
CALL  UMOVE  C0..0.5 
CALL  USE!  C 'REFERENCE'S 
CALL  UCOSYS  C2. .6. . .S, I . .0  " 
CALL  UPEN1  C0.,0.,'DARROW' 
rAi  i  AXIS 
CALL  UHOVE  C0.,0.S 
CALL  UCOSYS  C6..  I  ..  t ...  I  ..30.S 
CALL  UPENt  CO.,0., 'BARROW'S 
CALL  AXIS 


CALL  UENO 

STOP 

END 

SUBROUTINE  AXIS 

CALL  UMOVE  C-t ..0.5 

CALL  UPENt  Ct..0..'LARROW'S 

CALL  UMOVE  C0..-I.S 

CALL  UPEN  C0. , I . S 

RETURN 


V* 


Subroutine  UCOUNT 


FUNCTION: 

This  routine  returns  the  length  of  the  input  data  as  the  number  of  characters  required 
when  displaying  the  data  using  UPRINT. 

CALLING  SEQUENCE: 

CALL  UCOUNT(DATA, COUNT) 

Where 

DATA  contains  input  information  ready  for  display  by  UPRINT. 

COUNT  returns  the  number  of  characters  which  will  be  displayed  when  printing 

DATA  on  the  display  surface. 

OPTIONS  which  may  apply: 

Alphameric  Output  Option:  ‘TEXT’,  'REALNUMBER',  ‘INTERGERNUMBER’, 

'XYCOORDINATES',  XYZCOORDINATES’ 

Numeric  Precision  Option:  UPSET  option  ‘PRECISION’ 

COMMENTS: 

More  information  about  the  option  which  apply  may  be  found  under  UPRINT.  In 
conjunction  with  UQUERY  to  determine  current  character  size,  this  routine  can  be  used 
to  provide  special  character  string  positioning. 

Programming  Notes: 


Subroutine  UCRCLE 
FUNCTION: 


This  routine  draws  a  circle  whose  center  is  at  the  point  specified 
position  is  not  affected 


The  current  beam 


CALLING  SEQUENCE: 


CALL  UCRCLE  (X,Y, RADIUS) 


Where 

*  is  the  X-  or  RADIUS  coordinate  in  current  user  units 

T  is  the  Y-  or  THETA  coordinate  in  current  user  units. 

RADIUS  is  the  radius  of  the  circle  in  current  user  units. 

OPTIONS  which  may  apply 

‘CONTINUOUS’  or  ‘SEGMENTED' 

Pen  Options  (See  UPEN  write  up) 

UPSET  ZVALUE’  option 

COMMENTS: 

Imp  ^pnmfntf  Hd  by  hCRCLE  wiM  aPPear  as  either  a  continuous  line  or  a  collection  of 

‘SEGMENTED'  irCONTiwi  *h®  USer  h3S  speci,ied  'CONTINUOUS'  or 

rirrnmfMno0  CONTINUOUS  has  been  specified,  the  circle  will  appear  as  a  single 

Thor,!  i  s®9ment  of  ,he  line  type  of  which  is  obtained  from  the  current  pen  optio9n 

ISiPri  thon  m  3ny  yP6,?f  lme  termina'or  generated.  However,  if  ‘SEGMENTED^  is 
specified,  then  the  circle  will  appear  as  an  approximation  with  each  line  seoment  of  thp 

approximation  taking  on  lha  characteristic  delined  by  the  cufren  pen  omfon  ThJ 
term, na, or  indicated  will  appear  at  the  end  ol  each  line^egmen,  in  the  approximatS 

*  1°  UCRpLE  in  3  three  dimensional  graphics  application  program  will  result  in  a 

being  drawn  in  the  current  X-Y  plane,  specified  by  the  UPSET  option  ‘ ZVALUE ’ 

Programming  Notes: 


54 


CALL  USTART 
CALL  UOUTLN 

CALL  UCRCLE  C0. ,  0.  ,  50 .  ;> 

CALL  UCRCLE  C50.  ,0.  ,50.  :> 
CALL  UCRCLE  CI00.,0.,50. ) 
CALL  UCRCLE  <100 . .60. . 60. > 
CALL  UCRCLE  <100., 100. ,50. 3 
CALL  UCRCLE  <60., 100. ,50.) 
CALL  UCRCLE  <0.. 100. .50. 3 
CALL  UCRCLE  <0. ,60. ,60 . 5 
CALL  UCRCLE  <60. ,50. ,20. 7) 
CALL  UEND 
STOP 


Subroutine  UDAREA 
FUNCTION: 

This  routine  defines  the  boundaries  of  the  device  display  area  into  which  the  output 
appearing  in  the  user  window  into  virtual  space  will  appear 

CALLING  SEQUENCE: 

CALL  UDAREA  <XMIN,XMAX,YMIN,YMAX) 


Where 

XMIN  is  the  minimum  X-value  in  device  absolute  rectangular  units  in  the 

SYSTEM  coordinate  system. 

XMAX  is  the  maximum  X-value  in  device  absolute  rectangular  units  in  the 
SYSTEM  coordinate  system. 

YMIN  is  the  minimum  Y-value  in  device  absolute  rectangular  units  in  the 

SYSTEM  coordinate  system. 

YMAX  is  the  maximum  Y-value  in  device  absolute  rectangular  units  in  the 
SYSTEM  coordinate  system. 

OPTIONS  which  may  apply: 

‘INCHES’,  CENTIMETERS',  'PERCENT AGEUNIT',  'RASTER',  'FONT' 

COMMENTS: 

This  routine  works  in  conjunction  with  UWINDO  to  define  the  mapping  that  takes  place 
between  virtual  space  and  device  space.  UDAREA  should  be  used  for  setting  aside  a 
specific  region  of  the  device  display  area  for  displaying  graphical  output  created  in  the 
virtual  space  defined  by  UWINDO.  While  performing  pen  or  beam  movements  in  virtual 
space,  any  output  which  intersects  the  UWINDO  boundaries  will  be  truncated  at  that 
point.  For  a  complete  description  of  the  windowing  concept,  see  UWINDO. 

The  units  used  to  describe  the  desired  region  of  the  display  surface  should  be  device, 
rectangular,  and  absolute.  Any  of  the  device  unts  may  be  used  (eg.,  ‘INCHES', 
‘CENTIMETERS,’  etc  ).  If  either  the  maximum  X  or  maximum  Y  specification  are  less  than 
the  minimum  X  or  minimum  Y  respectively,  an  error  message  will  be  generated  (see  Error 
Appendix  for  details)  and  the  UDAREA  specification  in  effect  prior  to  entry  to  UDAREA 
will  be  retained. 

Programming  Notes: 
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_ 


CALL  USTART 

CALL  UDAREA  <2 .. t 0. ,0 . , 8 . ) 

CALL  USET  <' SOFTWARE') 

CALL  UPSET  <' HORIZONTAL  SIZE' ,70.) 

CALL  UPSET  < 'VERTICAL  SIZE', 90. 5 

CALL  USET  C'LSO 

CALL  UOUTLN 

CALL  UMOVE  <100. ,50.) 

CALL  UPEN  <50 . , S0 . 5 
CALL  UDAREA  <0., t .6,0. ,3.) 

CALL  U3WHER  CX.Y.Z5 

CALL  UOUTLN 

CALL  UMOVE  <100. ,50.) 

CALL  UPEN  <50.. 50.) 

CALL  UDAREA  <0., I .6,4. ,4. 5) 

CALL  UOUTLN 

CALL  UMOVE  <tO0.,50.) 

CALL  UPEN  <50., 50.) 

CALL  UENP 

STOP 

END 
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Subroutine  UDELAL 
FUNCTION: 

This  routine  deletes  all  currently  defined  segments  (or  frames). 

CALLING  SEQUENCE: 

CALL  UDELAL 

OPTIONS  which  may  apply: 

Segment  Posting  Mode:  ‘DELAYED’,  ‘IMMEDIATE’ 

COMMENTS: 

UERASE  automatically  performs  a  deletion  on  all  segments 

If  a  segment  is  open,  an  error  message  is  generated  and  no  deletions  occur. 

Programming  Notaa: 


Subroutine  UDELET 


3D 


FUNCTION: 

This  routine  deletes  an  existing  retained  segment  and  removes  its  image  from  display 
surface. 

CALLING  SEQUENCE: 


CALL  UDELET(SEGID) 


Where 

SEGID  is  the  segment  identifier  of  the  segment  to  be  deleted  (see  UOPEN  for  a 
description  of  SEGID). 

OPTIONS  which  may  apply: 

Segment/Frame  Identifier  Mode:  ‘FNAME’,  'FNUMBER' 

Segment  Posting  Mode:  ‘DELAYED’,  'IMMEDIATE' 

COMMENTS: 

The  image  of  the  deleted  segment  will  be  immediately  removed,  if  visible,  from  the 
display  surface  if  the  segment  posting  made  is  'IMMEDIATE'.  Otherwise,  the  image  will 
not  be  removed  until  the  next  required  screen  erase.  This  will  occur  when  UPOST  or 
UERASE  is  executed  or  if  UDELET  or  UMODFY  (to  change  a  segment  attribute  to 
‘INVISIBLE’)  is  called  with  the  segment  posting  mode  as  'IMMEDIATE'. 


Programming  Notes: 


Subroutine  UDIMEN 


FUNCTION: 

This  routine  adjusts  the  physical  boundaries  of  the  display  surface.  It  may  also  be  used 
to  provide  a  display  surface  of  a  specific  size. 

CALLING  SEQUENCE: 


CALL  UDIMEN  (XSIZE.YSIZE) 


Where 

XSIZE  is  the  physical  size  in  the  X-direction  in  current  device  units. 

YS1ZE  is  the  physical  size  in  the  Y-direction  in  current  device  units. 

OPTIONS  which  may  apply: 

Device  Unit  Type:  ‘INCHES’,  ‘CENTIMETERS’,  FONTUNITS',  PER- 

CENTUNITS',  ‘RASTERUNITS’,  SPECIFICATION 
UNITS'.  ‘NDCUNITS’ 

Specification  Unit  Size:  ‘XSPECIFICATION  UNIT',  ‘YSPECIFICATION 

UNIT’,  ‘SPECIFICATION  UNITS’ 


COMMENTS: 

This  routine  is  an  alternative  method  to  UFORMT  for  specifying  the  size  of  the  display 
surface.  The  actions  of  this  routine  will  replace  any  settings  performed  by  previous  calls 
to  UFORMT  or  UDIMEN. 

For  those  devices  which  have  a  variable  size  display  surface  (e  g.,  drum  plotters  or  dot¬ 
matrix  printers),  this  routine  provides  that  the  appropriate  size  display  surface  is  availa¬ 
ble.  For  devices  with  a  fixed  size  display  surface,  this  routine  may  be  used  to  reduce  the 
available  size  of  the  display  surface.  A  display  surface  which  exceeds  the  maximum 
available  display  surface  cannot  be  specified.  Attempts  to  do  so  will  generate  an  error, 
and  the  display  surface  size  will  not  be  changed. 

The  currently  set  aspect  ratio  (provided  by  UASPCT)  will  apply  to  the  newly  formatted 
display  surface.  The  UDAREA  will  be  set  to  the  entire  resulting  virtual  display  surface 

CAUTION: 

This  routine  may  change  the  size  of  PERCENTUNITS.  SPECIFICATIONUNITS.  or 
NDCUNITS 

To  reduce  the  side  effects  of  redefining  the  display  surface,  it  is  recommended  that  UDI¬ 
MEN  be  called  immediately  following  a  call  to  UERASE,  USTART,  or  URESET. 

Programming  Note*: 
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Subroutine  UDOIT 


Interactive 


FUNCTION: 

This  subroutine  enables  the  user  to  do  various  page  layouts  and  control  a  cassette 
recorder  such  as  the  Tektronix  4923. 

CALLING  SEQUENCE: 


CALL  UDOIT  (ACTION) 


Where 

ACTION  is  a  Hollerith  string  that  indicates  some  function  to  perform 
ACTIONS 


Must  have  called  USET  (  DEVICE  ) 


‘ALARM' 

—  Sounds  the  audible  alarm 

'ALPHAMODE' 

—  Sets  alphamode 

AUDIBLE' 

—  Sounds  the  audible  alarm 

BACKSPACE 

—  Move  back  one  character  space 

BEEP' 

—  Sounds  the  audible  alarm 

BELL' 

—  Sounds  the  audible  alarm 

BLIP' 

—  Sounds  the  audible  alarm 

BOTTOM' 

—  Move  to  bottom  margin 

BSPb' 

—  Same  as  backspace 

CARR' 

—  Do  a  carriage-return 

CR' 

—  Do  a  carriage-return 

CRLF' 

—  Do  a  carriage-return  then  a  line-feed 

DOWN' 

—  Do  a  line-feed 

ERAS' 

—  Erase  the  screen 

HDOWN' 

—  Home  to  the  bottom 

HOME' 

—  Home  to  the  top 

LEFT' 

—  Move  to  the  left  margin 

'LFbb' 

—  Do  a  line-feed 

LINEFEED- 

—  Do  a  line-feed 

NEWLINE' 

—  Do  a  carriage-return  then  a  line-feed 

NEWPAGE' 

—  Erase  the  screen 

PAGE' 

—  Erase  the  screen 

RIGHT' 

—  Move  to  right  margin 

SPbb' 

—  Move  over  one  hardware  character  space 

SPACE' 

—  Move  over  one  hardware  character  space 

TABb' 

—  Tab  to  next  horizontal  tab  setting 

TABH' 

—  Tab  to  next  horizontal  tab  setting 

'TOPb' 

—  Move  to  top  margin 

UPbb' 

—  Move  to  top  margin 

TABV 

—  Tab  to  next  vertical  tab  setting 

TABX' 

TBHX' 

—  Tab  to  designated  setting  (example:  TBH8  ) 

TBVX' 

( see  UPSET ) 

WHERE  X  =  0-9 

UP' 

—  Move  up  one  vertical  hardware  character  position 
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CASSETTE  CONTROL:  Not  necessary  to  call  USET  (  DEVICE  ) 

RSTART'  —  Start  read 

RSTOP  —  stop  read 

'WSTART‘  —  Start  write 

WSTOP'  —  Stop  write 

Programming  Notes: 
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Subroutine  UDRAW 


FUNCTION: 

This  routine  draws  a  solid  line  vector  from  the  current  position  to  that  specified  by  the 
input  arguments  All  lines  are  drawn  on  the  XY-plane  specified  by  the  current  set  Z- 
value. 

CALLING  SEQUENCE: 

CALL  UDRAW(X.Y) 

Where 

X,Y  are  the  coordinates  of  the  end  point  of  the  line  in  curreny  units 

OPTIONS: 

Pen  Coordinate  Options: 

Type:  ‘RECTANGULAR’,  POLAR’ 

Log:  'XLOG',  'YLOG',  ZLOG\ 'XYLOG',  ‘ XZLOG YZLOG’,  'XYZLOG’, 

LOGARITHMIC’,  ‘NOLOG’ 

MODE:  ‘ABSOLUTE’,  ’RELATIVE’ 

SPACE:  ‘VIRTUAL’,  ‘DEVICE’ 

DEVICE  SPACE  UNITS:  ‘INCHES’,  'CENTIMETERS',  ‘RASTERUNITS’,  ‘FONTUNITS’, 

‘PERCENTUNITS’,  ,SPECIFICATIONUITS' 

COORDINATE  SYSTEM:  ‘SYSTEM’,  'USER',  ‘REFERENCE’,  ‘WORKING’ 

COMMENTS: 

This  routine  is  equivalent  to  UPEN  with  line  option  ’LNULL’.  The  current  setting  of  the 
line  option  has  no  effect  on  this  routine.  The  current  Z-value  will  be  used  to  draw  the  line 
in  three-space. 

Programming  Notes: 


Subroutine  UDRIN 


Interactive 


FUNCTION: 

This  routine  provides  a  flexible  drafting  operation  which  obtains  the  end  of  the  next 
beam/pen  movement  and  the  type  of  movement  via  graphics  input,  and  then  performs 
the  operation  requested  Only  one  operation  will  be  performed  by  a  single  call  to  UDRIN. 
If  the  operation  requested  is  not  a  valid  UDRIN  operation,  then  the  input  values  are 
simply  passed  back  to  the  calling  program. 

CALLING  SEQUENCE: 


CALL  UDRIN (X,Y, CHAR) 


Where 

X  is  the  X-  or  RADIUS  coordinate  of  the  graphics  input  cursors  in  user  units 

entered  by  the  user  during  the  graphics  input  operation. 

Y  is  the  Y-  or  THETA  coordinate  of  the  graphics  input  cursors  in  user  units 

entered  by  the  user  during  the  graphics  input  operation. 

CHAR  is  the  character  entered  which  identifies  the  type  of  operation  performed.  It 
will  be  returned  in  Hollerith  (left  justified,  blank-fill)  format. 

OPTIONS  which  may  apply: 

Any  option  which  effects  pen/beam. 

Input  Device  Selection  Options:  'LIGHTPEN',  'CURSORS',  etc.  (see  UGRIN) 

COMMENTS: 

UDRIN  supports  the  most  basic  line  options  for  interactive  drafting.  When  UDRIN  is 
called,  the  current  graphics  input  device  (see  UGRIN)  is  enabled.  The  user  positions  the 
cursor  or  tracking  cross  at  the  position  he  desires  and  strikes  the  particular  keyboard 
key  which  indicates  the  option  he  desires.  The  following  table  indicates  the  UDRIN 
options  available: 

A  —  draws  an  arrow  from  current  beam  location  to  current  cursor  postion. 

C  —  outputs  the  current  system  character  at  the  current  cursor  location. 

D  —  draws  a  double  arrow  from  current  beam  location  to  cursor  position. 

E  —  erases  the  screen 

H  —  sets  Graphic  Status  Area  to  hardware  character  type. 

K  —  sets  the  system  character  to  that  character  entered  at  next  appearance  of  cursors. 
L  —  draws  a  line  from  current  beam  position  to  cursor  position. 

M  —  moves  the  beam  invisibly  to  the  cursor  position. 

P  —  plots  a  point  at  cursor  position 
S  —  sets  Graphics  Status  Area  to  software  character  type. 
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T  —  draws  a  ticked  line  trom  current  beam  location  to  cursor  position 
X  —  prints  coordinates  at  cursor  position 

Z  —  draws  a  dashed  line  according  to  the  current  dash  specification  trom  the  current 
beam  position  to  the  cursor  position 

All  unused  characters  may  be  assigned  special  meanings  by  the  user  to  support  options 
not  available  In  UDRIN  The  characters  indicated  above  are  all  upper  case,  thus  all  lower 
case  characters  are  available  to  the  user 

Programming  No  tea: 
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Subroutine  UEND 
FUNCTION: 


he  routine  should  be  called  to  terminate  graphics  operations.  Its  effect  is  to  flush  anv 

mode  di.UnuL8ftWhiCh  may  be  USed  in,erna,,y in  GCS  »«ke  the  termToToS  of  grlSmSs 
Pk  V  V  err?;r  messa9es  whose  output  h«s  been  deferred,  position  the  beam  or 
pen  at  the  home  position,  and  return  to  the  user's  program.  ^smon  In«  oeam  or 


CALLING  SEQUENCE: 


CALL  UEND 


OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 


antdh^^|t|h«eTTD?nSr>0f  termina,'ng  graphics  operations  in  a  program  UEND  is  the 
onl  PP!ART  Pependin9  0"  ‘he  type  of  graphics  device  being  used  different 

rtWI  K^e.KP  aC®  Wh,ch  f,ush  any  bu,fers  which  are  partially  filled  (see 
th«LhU  disanable  •h®  graphics  operations  at  the  terminal,  position  the  pe^  or  beam  in 

Je?“eS<!  UEND  ,hdr  °  I""' GCS  V T  ,see  Error 

een  deferred.  UEND  then  returns  control  to  the  user's  program  The  user  if  he  wishes 

£ U8T«m“  ope,8,ions’  sh°“ld  da"  VSTAHT  i"  order  te  ream., 


Programming  Notes: 


66 


Subroutine  UERASE 


FUNCTION: 

This  routine  causes  the  graphics  display  device  plotting  area  to  be  cleared  of  any 
previous  output.  The  pen  or  beam  position  is  not  affected. 

CALLING  SEQUENCE: 

CALL  UERASE 

OPTIONS  which  may  apply: 

Security  Banners:  ‘UNSECURED',  ‘UNCLASSIFIED’,  CONFIDENTIAL’,  ‘SECRET’, 

’TOP  SECRET’ 

COMMENTS: 

„  ' 

The  currently  specified  display  surface(s)  will  be  cleared.  The  pen  or  beam  position  at 

the  time  of  the  erasure  will  not  be  changed  and  the  graphics  status  area  will  not  be 
affected 

If  a  security  banner  other  than  ‘UNSECURED’  is  selected,  the  banner  will  be  displayed  at 
the  top  and  bottom  of  each  frame  in  the  largest  hardware  character  size. 

Any  segments  which  are  defined  at  the  time  of  an  invocation  of  UERASE  will  be  deleted. 
If  this  is  not  desired,  UPOST  should  be  called  instead. 

Programming  Notes: 
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Subroutine  UERROR 
FUNCTION: 


22  Iast  GCS  error  which  occurred  and  a  count  °f 

loiai  number  ot  GCS  errors  which  have  occurred. 


CALLING  SEQUENCE: 


Where 


CALL  UERROR(ERLAST, TOTAL) 


ERLAST 


is  the  GCS  error  number  of  the  last  GCS  error  which  occurred, 
returned  if  no  errors  have  occurred. 


Zero  is 


TOTAL 


I8.*!1*.  nu,nber  of  GCS  errors  which  have  occurred  since  the  last  GSA 
initialization  (USTART  or  URESET)  or  the  last  call  to  UERROR  whichever 
occurred  most  recently. 


OPTIONS  which  may  apply: 


No  options  apply 


COMMENTS: 


The  error  total  is  reset  to  zero  whenever  UERROR  is  called 


a n d r '  D  E^F  e' R  F^E  cTf  R R OR <5  ^ r  °t ho °h  ^ S '  u  9  ®C.8:  rERR0RS’’  'SUPPRESSED  ERRORS'. 

K^The'scs  ET™, m™vo;defe';re»d  errors 

a  lea  The  GCS  Error  Mode  does  not  effect  the  execution  of  UERROR  Reaardless  of 
error  mode,  errors  will  be  counted  and  the  last  error  to  occur  wiS  be  saved 


Programming  Notes: 
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Subroutine  UFLUSH 
FUNCTION: 

This  routine  terminates  the  frame. 

CALLING  SEQUENCE: 

CALL  UFLUSH 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 


This  routine  must  be  called  to  terminate  each  frame.  If  not  then  plot  data  may  be  lost. 

Programming  Notes: 


Subroutine  UFONT 
FUNCTION: 

This  routine  changes  the  text  font  to  that  requested  by  the  calling  program. 

CALLING  SEQUENCE: 

CALL  UFONT  (NAMFNT) 

Where 

NAMENT  is  the  Hollerith  string  containing  the  name  of  the  font  to  be  used  by  subse¬ 
quent  text  operations. 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

The  font  name  provided  will  be  converted  to  standard  GCS  format  (first  four  characters) 
and  compared  to  the  table  of  available  fonts.  The  font  will  not  be  changed  if  an  invalid 
font  name  if  provided.  The  fonts  are  grouped  by  style  and  are  listed  below.  Each  font  is 
shown  in  Table  UFONT-1  with  its  corresponding  ASCII  reference  symbol  (the  ASCII 
‘RUBOUT'  character  is  represented  by  c  ).  With  the  exception  of  the  Simplex  GCS  font, 
all  fonts  are  derived  from  the  characters  digitized  by  Allan  Hershey  of  the  U  S.  Naval 
Weapons  Laboratory,  Dahlgren,  VA. 

More  information  on  these  fonts  may  be  found  in  National  Bureau  of  Standards  Publica¬ 
tion  424  entitled  "A  Contribution  to  Computer  Typesetting  Techniques.  Table  of  Coordi¬ 
nates  for  Hershey's  Repetory  of  Occidental  Type  Fonts  and  Graphic  Symbols." 

Fonts  may  also  be  changed  from  within  GCS  text  strings  by  including  the  font  change 
symbol  (default  is  the  ‘at’  symbol)  followed  by  the  first  four  characters  of  the  font  name. 

Fonts  will  be  changed  for  both  hardware  and  software  characters,  if  possible.  However, 
should  a  hardware  character  generator  not  support  a  particular  font,  a  substitute  (usual¬ 
ly  the  basic  font)  will  be  provided. 

AVAILABLE  FONTS: 

Simplex: 

This  style  is  a  very  simple  style  and  uses  the  fewest  strokes.  The  fonts  available  in  this 


style  are: 

SGCS 

Simplex  GCS  (default) 

SGRE 

Simplex  Greek 

SROM 

Simplex  Roman 

SSCR 

Simplex  Script 

Complex: 

As  the  name  implies,  this  style  provides  more  complicated  characters.  The  fonts  availa¬ 
ble  in  the  complex  style  are: 
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CCYR  Complex  Cyrillic 

CGRE  Complex  Greek 

CITA  Complex  Italic 

CSCR  Complex  Script 

Duplex: 

This  style  is  a  less  ornated  representation  of  complicated  characters  Only  one  font  is 
available: 

DROM  Duplex  Roman 

Triplex: 

This  style  is  similar  to  the  complex  style.  By  using  three  lines  for  each  stroke,  the 
characters  appear  more  bold.  Two  fonts  are  available. 

TITA  Triplex  Italic 

TROM  Triplex  Roman 

Gothic: 

This  is  the  most  ornate  style  available.  This  ornateness  comes  at  a  severe  penalty  in 
generation  time  due  to  the  large  number  of  strokes  in  each  character.  The  fonts  availa- 


ble  are: 

GENG 

GGER 

GITA 

Gothic  English 

Gothic  German 

Gothic  Italian 

Special: 

The  following  fonts  support  applications  areas  where  special  symbols  are  frequently 
used.  The  SYMBOL  font  consists  entirely  of  symbols.  The  other  fonts  incorporate  all  or 
portions  of  the  roman  alphabet  and  the  ten  numeric  digits.  The  fonts  available  are: 

ASTR 

Astrology— This  font  incorporates  the  signs  of  the  zodiac  and  of  the 
planets.  Included  are  a  full  triplex  Italic  alphabet  and  numerals. 

LMAT 

Lower  Case  Mathematics— This  font  includes  a  complete  set  of  mathe¬ 
matical  symbols.  A  lower  case  Simplex  Roman  alphabet  is  provided  and 
it  is  referenced  using  upper  case  characters. 

UMAT 

Upper  Case  Mathematics— This  font  includes  a  complete  set  of  mathe¬ 
matical  symbols.  Only  an  upper  case  Simplex  Roman  alphabet  is  pro¬ 
vided  and  it  is  referenced  using  upper  case  characters. 

METE 

Meteorological— This  font  incorporates  the  standard  set  of  meteorologi¬ 
cal  symbols.  Included  are  a  full  Simplex  Roman  alphabet  and  numerals. 

MUSI 

Music— This  font  provides  symbols  commonly  used  when  writing  music 
including  symbols  for  cleffs,  rests,  and  notes.  A  full  Complex  Italic 
alphabet  and  numberals  are  provided. 

SYMB 

Symbols— Only  symbols  will  be  found  in  this  font.  No  alphabet  or 
numerals  are  provided. 

Programming  Notes: 
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Subroutine  UFORMT 
FUNCTION: 

This  routine  configures  the  display  surface  for  generation  of  the  requested  standard 
format. 

CALLING  SEQUENCE: 


CALL  UFORMT  (FORMAT) 


Where 

FORMAT  is  the  name  of  the  desired  format.  A  list  of  valid  names  is  provided  below. 
OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 


The  following  table  lists  the  supported  standard  formats  grouped  by  media: 


Publication: 


PAGE' 

‘HPAGE' 

'LEGAL' 

'HLEGAL' 

16  mm  Film: 


8-1/2  x  1 1  inch  vertical  page. 

1 1  x  8-1/2  inch  horizontal  page. 

8-1/2  x  14  inch  vertical  legal  page. 

14  x  8-1/2  inch  horizontal  legal  page. 


'16CINE'  1 6  mm  motion  picture. 

'16COMIC'  16  mm  microfilm. 

35  mm  Film: 


'35CINE'  35  mm  motion  picture. 

'35COMIC'  35  mm  slides. 

‘35APERTURE  CARD'  35  mm  non-sprocketed  aperture  cards. 


70  mm  Film: 

‘70CINE’  70  mm  wide  screen  motion  picture. 

'70COMIC'  70  mm  square  comic  orientation. 


105  mm  Film: 


‘105’  105  mm  square  full  frame  comic. 

Microfiche: 


‘24XNARROW’ 

'24XWIDE' 

'42XNARROW' 

‘42XWIDE' 

'48XNARROW' 

'48XWIDE' 


Vertically  oriented  narrow  page  24X  reduction 
Horizontally  oriented  wide  page  24X  reduction. 
Vertically  oriented  narrow  page  42X  reduction. 
Horizontally  oriented  wide  page  42X  reduction. 
Vertically  oriented  narrow  page  48X  reduction 
Horizontally  oriented  wide  page  48X  reduction. 
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Engineering  Drawing*: 


‘AVSIZE’ 

■AHSIZE’ 

BSIZE’ 

‘CSIZE’ 

‘DSIZE’ 

‘ESIZE' 


Vertical  A-size 

Horizontal  A-size 

B-size 

C-size 

D-size 

E-size 


8-1/2  x  1 1  inches. 
1 1  x  8-1/2  inches. 
11x17  inches. 

1 7  x  22  inches. 

22  x  34  inches. 

34  x  44  inches. 


Miscellaneous: 


'SHEETFILM' 

‘TELEVISION' 

‘STRIPCHART’ 

‘SQUARE’ 

'MAXIMUM' 


4x5  inch  sheet  film. 
Television  safe  area. 
Frame-abutted 
Square  (10  inches). 
Entire  physical  surface. 


If  the  physical  display  surface  cannot  directly  produce  the  requested  format,  a  display 
surface  will  be  created  which  simulates  the  requested  format  using  the  maximum 
available  portion  of  the  physical  display  surface  which  accepts  the  aspect  ratio  of  the 
format  requested.  When  the  format  is  simulated,  the  formatted  display  surface  will  be 
centered  on  the  physical  display  surface  if  practicable. 


This  routine  is  an  alternative  method  to  UDIMEN  for  specifying  the  size  of  the  display 
surface.  The  actions  of  this  routine  will  replace  any  settings  performed  by  previous  calls 
to  UFORMT  or  UDIMEN. 

The  currently  set  aspect  ratio  (provided  by  UASPCT)  will  apply  to  the  newly  formatted 
display  surface.  The  UDAREA  will  be  set  to  occupy  entirely  the  resulting  virtual  display 
surface 

CAUTION: 


This  routine  may  change  the  size  of  PERCENTUNITS,  SPECIFICATIONUNITS,  or 
NDCUNITS.  If  a  simulated  formatted  display  surface  is  provided,  the  size  of  INCHES  and 
CENTIMETERS  will  be  as  if  the  format  were  actually  being  produced. 

To  reduce  the  side  effects  of  redefining  the  display  surface,  it  is  recommended  that 
UFORMT  be  called  immediately  following  a  call  to  UERASE,  USTART,  or  URESET. 

Programming  Notes: 
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Subroutine  U FRAME 


FUNCTION: 

This  routine  indicates  to  GCS  that  all  graphic  commands  generated  subsequent  to  the 
invocation  of  this  subroutine  and  prior  to  the  invocation  of  the  matching  subroutine 
UFREND  are  a  named  entity  which  replaces  any  previous  occurrence  of  the  same  named 
entity. 

CALLINQ  SEQUENCE: 


CALL  UFRAME  (NAME) 


Where 

NAME  is  the  eight  character  alphanumeric  constant  or  variable. 

OPTIONS  which  may  apply: 

’INVISIBLE’ 

'VISIBLE' 

COMMENTS: 

The  execution  of  this  subroutine  causes  all  subsequent  graphic  commands  to  be 
associated  with  the  argument  NAME.  The  association  continues  until  the  matching 
subroutine  UFREND  is  executed.  For  refresh  graphic  terminals,  the  framed  information 
replaces  the  previous  occurrence  of  the  frame  on  the  display  screen.  If  GCS  is  in 
INVISIBLE  build  mode  (default)  the  previous  occurrence  is  deleted  only  when  the  new 
occurrence  is  completely  defined.  That  is,  when  the  matching  subroutine  UFREND  is 
executed.  If  GCS  is  in  visible  build  mode,  the  previous  frame  is  deleted  when  UFRAME  is 
executed  and  the  new  frame  is  displayed  as  each  graphic  command  is  generated. 
Multiple  frames  can  be  defined,  but  only  one  frame  may  be  open  or  active  at  a  time.  This 
means  that  frame  definitions  may  not  overlap  or  be  nested. 

Programming  Notes: 
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Subroutine  UFREND 
FUNCTION: 

This  routine  indicates  to  GCS  that  the  named  set  of  graphic  commands  currently  being 
defined  (the  active  frame)  is  terminated. 

CALLING  SEQUENCE: 


CALL  UFREND  (NAME) 


Where 

NAME  is  an  eight  character  alphanumeric  constant  or  variable. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  execution  of  this  subroutine  discontinues  the  association  of  the  current  frame 
NAME  with  graphic  commands  which  are  being  generated.  Since  frame  definitions  may 
not  overlap  or  be  nested,  the  argument  NAME  in  the  call  to  this  subroutine  must  agree 
with  that  in  the  immediately  preceding  call  to  UFRAME.  Any  other  name  indicates  an 
error  condition. 

Programming  Notas: 
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x  -  10.0 

y  -  aa.a 

CALL  USTART 

CALL  UPSET  ('LIBRARY', t .) 

CALL  UOUTLN 

do  i  i  -  i,  a 

CALL  U FRAME  ('TRIANGLE') 

CALL  UMOVE  (X,X) 

CALL  UPEN  (X, (X+S.0)) 

call  upen  ((x«*.o>.X) 

CALL  UPEN  (X.X) 

CALL  UFREND  ( ' TRIANGLE  ' ) 

CALL  U FRAME  ('SQUARE') 

CALL  UMOVE  (X.Y) 

X  -  X  ♦  10.0 
Y  -  Y  -  10.0 

CALL  URECT  ((X-S.0),  (Y-M6.0)) 
CALL  UFREND  ('SQUARE') 
t  CONTINUE 
CALL  UEND 
STOP 
END 
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Subroutine  UGRIN 


Interactive 


FUNCTION. 

This  routine  activates  a  graphics  input  device  at  the  terminal  and  returns  to  the  user  the 
coordinates  specified  and  an  alphanumeric  character  which  may  be  specified  by  the 
user  or  derived  from  the  actions  of  the  input  device. 

CALLING  SEQUENCE: 

CALL  UGRIN  (X,Y,ICHAR) 


Where 

X  is  the  X-  or  RADIUS  coordinate  of  the  point  specified  by  the  input  device  in 

user  units. 

Y  is  the  Y-  or  THETA  coordinate  of  the  point  specified  by  the  input  device  in 

user  units. 

ICHAR  is  the  alphanumeric  entered  by  the  user  or  provided  by  the  device  in 
Hollerith  (left-justified,  blank-filled)  format. 

OPTIONS  which  may  apply: 

CURSOR',  JOYSTICK',  'LIGHTPEN',  TABLET',  'KEYBOARD',  'FUNCTIONKEY', 
'MOUSE',  'BALL'. 

Graphic  Input  Device  Options 

COMMENTS: 

UGRIN  is  the  user's  general  purpose  graphics  input  routine.  It  is  des'gned  to  support  any 
of  the  input  devices  which  may  be  available  on  any  particular  terminal.  For  terminals 
with  more  than  one  graphics  input  device,  each  type  of  device  can  be  supported 
separately.  Should  the  user  request  a  device  which  is  not  available,  the  principal 
graphic  input  device  will  be  enabled.  Terminals  with  no  graphics  input  device  simulate 
graphics  input  by  reading  the  coordinates  and  the  character  from  the  keyboard.  In  this 
case,  the  coordinates  must  be  entered  in  absolute,  rectangular,  raster  units. 

The  graphics  input  device  which  the  user  wishes  enabled  should  be  requested  prior  to 
calling  UGRIN  by  setting  the  USET  option  for  the  device.  A  list  of  devices  is  indicated 
under  'Options  which  may  apply'  above.  USTART  will  initialize  the  device  selection  to 
the  primary  graphics  input  device  for  the  terminal. 

When  UGRIN  is  called,  an  indication  that  the  graphics  input  device  has  been  enabled 
will  appear.  This  indication  may  be  a  tracking  cross  or  cursors  which  appear  on  the 
screen,  a  ready  light  which  turns  on,  or  some  other  recognizable  object.  At  this  point,  the 
user  should  position  the  cursor  or  tracking  cross  to  the  desired  location  and  signal  the 
end  of  the  operation  in  the  manner  required  by  the  device.  This  may  consist  of  striking  a 
keyboard  character,  removing  the  input  device  (pencil)  from  the  input  surface,  applying 
pressure  to  the  input  device  pencil,  or  some  other  means.  For  exact  details  for  a 
particular  device,  see  the  System  Manual  If  graphics  input  is  being  simulated,  enter  the 
coordinates  and  the  character  from  the  keyboard  upon  request  from  the  program.  When 
the  end  of  graphics  input  has  been  signaled,  the  graphics  input  enabled  indicator  will 
disappear 
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wh?rh°*r«  -nlf ,urrl*d  usfrs  program  in  arguments  X  and  V  will  be  in  the  units 
which  are  currently  set  m  the  Graphics  Status  Area.  These  values  a.e  suitable  for  direct 

FORTRAN PEN  arguments.  The  character  which  has  been  entered  will  be  in  standard 

FORTRAN  LOrfr/u  i?  IT®.  (le,t.'JU<s,l,'ed'  blank-filled)  and  is  suitable  for  use  in 
UH  han  LOGICAL  IF  statements  for  interrogation  or  as  input  to  USET  or  UAOUT 


Programming  Notes: 


CHARACTER  CHARwt 
CALL  USTART 
CALL  UOUTLN 

1  CALL  UGRIN  (X,Y,CHAR> 

IF  (CHAR  .EQ.  'SO  CALL  UPENl  (X,  Y.  'LINE'  5 

IF  (CHAR  .EQ.  'I' 3  CALL  UMOVE  (X.Yi 

IF  (CHAR  .EQ.  'D'5  CALL  UPENl  (X, Y, 'DASH' 5 

IF  (CHAR  .EQ.  'EO  80  TO  2 

GO  TO  I 

2  CALL  UENO 
STOP 


Subroutine  UHDCPY 
FUNCTION: 

This  routine  causes  a  hard  copy  to  be  generated  if  the  device  has  an  on-line  immediate 
hard  copy  capability. 

CALLING  SEQUENCE: 


CALL  UHDCPY 


OPTIONS  which  may  apply: 

Hard  copy  delay  time:  UPSETCCOPYDELAY’.TIME) 

COMMENTS 

This  routine  performs  no  action  if  a  hard  copy  capability  is  not  available.  The  copy  delay 
time  has  been  set  to  that  required  by  the  device  hard  copy  unit.  This  time  may  be 
adjusted  by  calling  UPSET(‘COPYDELAY’,TIME)  where  TIME  is  in  seconds. 

Programming  Notes: 
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Subroutine  UHISTO 
FUNCTION: 

To  draw  a  histogram  of  the  specified  number  of  bars  from  the  user  data  array.  The 
histogram  will  be  drawn  in  the  current  user  display  area  and  will  be  scaled  and  labeled 
as  the  user  has  specified.  The  display  area  will  be  reduced  by  the  size  of  the  labels,  if 
any. 

CALLING  SEQUENCE: 


CALL  UHISTO  <ARRAY,POINTS,BARS) 


Where 

ARRAY  is  a  real  array  of  data. 

POINTS  is  a  real  constant  or  variable  which  is  the  number  of  elements  in  ARRAY. 

BARS  is  a  real  constant  or  variable  which  is  the  number  of  bars  in  the  histogram. 

OPTIONS  which  may  apply: 

AXIS  EXISTENCE:  'NOAXES'.  XAXIS',  YAXIS', ‘XYAXIS’ 

AXIS  FORMAT:  'PLAINAXIS',  ‘TICAXIS’ 

X-AXIS  LABELING:  XNUMERIC’,  'XALPHABETlC',  'XBOTH',  'NOXLABEL 
Y-AXIS  LABELING.  ‘YNUMERIC’,  ^ALPHABETIC', 'YBOTH'  'NOXLABEL' 

SCALING  TYPE:  ‘AUTOSCALE’,  'FULLSCALE'.  OWNSCALE' 

DISPLAY  AREA:  NEWSCALE’,  OLDSCALE' 

COMMENTS: 

UHISTO  is  a  general  purpose  histogram  drawing  and  labeling  routine.  The  options 
indicated  above  are  independent  of  each  other  so  that  several  different  options  may 
appropriately  be  chosen.  When  the  statistics  for  the  histogram  are  developed,  each 
interval  is  assumed  to  be  closed  on  the  lower  end  and  open  on  the  upper  end.  The  last 
interval  is  closed  on  the  upper  end  That  is.  for  example,  the  value  of  2.0  will  fall  in  the 
range  of  2.0  to  3  0  rather  than  1 ,0  to  2.0 

SUMMARY  OF  OPTIONS: 


Axis  Existence: 

NOAXIS 

XAXIS 

YAXIS 
XYAXIS 
Axis  Format: 

PLAINAXIS 


—  Neither  the  X-axis  of  the  Y-axis  nor  the  histogram  will  be 
displayed 

—  Only  the  X-axis  will  be  displayed 

—  Only  the  Y-axis  will  be  displayed. 

—  Both  the  X-  and  the  Y-axis  will  be  displayed 

—  The  X-axis  will  appear  as  a  solid  line 
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_ _ 


TICAXIS 


X-Axis  Labeling: 

NOXLABEL 

XNUMERIC 

X  ALPHANUMERIC 


XBOTHLABELS 

Y-Axis  Labeling: 

NOYLABEL 

YNUMERIC 


YALPHAMERIC 


Scaling  Type: 
AUTOSCALE 


—  The  X-axis  will  appear  as  a  ticked  line.  The  tic  interval  will  be 
one  unit.  Note  that  only  the  X-axis  format  is  involved.  The  Y- 
axis  will  always  remain  plain.  The  GRIDAXIS  option  is  not  sup¬ 
ported  If  GRIDAXIS  is  selected,  the  option  wiil  revert  to 
PLAINAXIS. 


—  No  labeling  should  appear  along  the  X-axis 

—  Numeric  labels  should  be  created  along  the  X-axis.  The  tic 
interval  will  be  determined  by  UHISTO  so  that  the  number  of 
labels  which  appear  on  the  X-axis  will  be  maximized. 

—  Alphanumeric  labels  will  appear  at  the  lower  edge  of  the  dis¬ 
play  area  in  which  the  histogram  is  drawn.  The  contents  of  the 
label  can  be  specified  by  calling  subroutine  UPSET  with  argu¬ 
ments  ‘XLABEL’  and  a  GCS  character  string  as  a  value  (for  a 
description  of  GCS  character  strings,  see  UPRINT). 

—  Both  the  alphanumeric  and  numeric  labels  will  appear  along 
the  X-axis 


—  No  labeling  should  appear  along  the  Y-axis. 

—  Numeric  labels  should  be  created  along  the  Y-axis.  One  label 
will  be  created  for  each  bar  of  the  histogram.  The  numeric 
labels  consist  of  the  range  of  values  represented  by  a 
histogram  bar,  and  the  count  of  the  number  of  items  in  the 
range  (the  length  of  the  bar). 

—  Alphameric  labels  should  be  created  along  the  Y-axis,  at  the 
left  edge  of  the  display  area  in  which  the  histogram  is  drawn. 
The  contents  of  the  label  can  be  specified  by  calling  subroutine 
UPSET  with  arguments  YLABEL'  and  a  GCS  character  string 
as  a  value  (for  a  description  of  GCS  character  strings,  see 
UPRINT). 


—  For  the  X-axis,  the  range  of  values  for  the  histogram  will  be  from 
zero  to  a  number  larger  than  the  size  of  the  largest  bar.  For  the 
Y-axis,  the  range  of  values  to  be  histogrammed  is  examined  so 
that  ‘nice'  numbers  will  appear  at  the  bar  intervals.  The  range 
may  be  expanded  to  include  these  values.  The  UWINDO  is  set 
to  the  expanded  range  as  identified. 
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FULLSCALE 


OWNSCALE 


Display  Area: 
NEWSCALE 

OLDSCALE 


-  For  the  X-axis,  the  range  of  values  for  the  histogram  will  be  from 
zero  to  a  number  larger  than  the  size  of  the  largest  bar.  For  the 
Y-axis,  the  limits  of  the  histogram  will  be  the  minimum  and 
maximum  values  of  the  data.  The  UWINDO  setting  is  modified 
to  reflect  the  limits  of  the  X-axis. 

—  For  the  X-axis,  the  left  edge  of  the  window  setting  is  used  to 
determine  the  lower  limit  of  the  histogram.  The  upper  limit  is 
set  to  be  larger  than  the  lower  limit  and  larger  than  the  size  of 
the  largest  bar.  The  UWINDO  setting  is  modified  to  reflect  the 
limits  of  the  X-axis.  For  the  Y-axis,  the  limits  of  the  histogram 
will  be  the  upper  and  lower  Y  limits  of  the  window.  Histogram 
bars  outside  of  the  limit  are  windowed. 


—  The  histogram  is  considered  to  be  drawn  in  a  ‘new’  area.  The 
appropriate  scaling  is  performed  and  the  specified  labels  are 
produced. 

—  The  histogram  is  considered  to  be  drawn  in  an  ‘existing'  display 
area  in  which  another  histogram  or  plot  may  exist.  No  labels 
are  produced  and  no  rescaling  occurs.  This  option  is  an 
override  option  over  the  previous  alternatives. 


Programming  Notea: 
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.0  TO  l. 
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67 
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46 
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46 

-.1  TO  0. 

90 

-.2  TO  -.1 

30 
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91 
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-.6  TO  -.4 
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90 
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-.0  TO  -.0 
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0  II  N  64  72  SB  t0«  120  144 

DISTRI0UTION  OP  VALUES  OP  SINE 


DIMENSION  DATAC 1000} 

DATA  XN/1000./ 

DO  2  I  -  I ,  1000 

2  DATACI5  -  SINCFLOATCI}/ 150.5 
CALL  USTART 
CALL  UA6PCT  <1.5 
CALL  USET  C ' LARGE ' } 

CALL  USET  C  * PERCENTUNXTS  * } 

CALL  UDAREA  CO. „ 100. .0. „ 100. } 

CALL  USET  C ' FULL SCALE y  5 
CALL  USET  C ' XBOTHLABELS  *  5 

CALL  UPSET  C * XLABEL ‘ DISTRIBUTION  OF  VALUES  OF  SINEVO 

CALL  UHISTO  CDATA.XN. 20. 5 

CALL  UEND 

STOP 

END 
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Subroutine  UHOME 
FUNCTION: 

This  routine  moves  the  beam  to  the  home  position. 

CALLING  SEQUENCE: 


CALL  UHOME 


OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

The  home  position  is  maintained  in  the  Graphics  Status  Area.  This  position  is  normally 
the  lower  left  corner  of  the  display  surface.  The  beam  is  moved  to  the  home  position  with 
no  visible  output  on  the  display  surface. 


Programming  Notes: 


Subroutine  UIMAGE 


3D 


FUNCTION: 

This  routine  applies  a  general  two-dimensional  image  transformation  to  the  indicated 
segment/frame. 

CALLING  SEQUENCE: 

CALL  UIMAGE(X,Y,SX,SY,R,SEGID) 

Where 

X,Y  is  the  new  position  of  the  segment  in  current  2D  device  units 

SX,SY  is  the  scale  factor  to  be  applied  along  each  axis  of  the  display  surface 

R  ,  is  the  rotation  in  current  angular  units  to  be  applied  around  the  Z-axis  of 

the  display  surface 

SECID  is  the  identifier  of  a  'retained'  segment/frame  which  was  UOPENed  for  at 
least  general  2D  image  transformations 

OPTIONS  which  may  apply: 

Device  Units:  ‘INCHES’,  'CENTIMETERS,'  ‘RASTER  UNITS,'  'FONT 

UNITS,’  'SPECIFICATION  UNITS,'  ‘PERCENT  UNITS' 

Specification  Units  (UPSET):  ‘SPECIFICATION  UNITS,’  ^SPECIFICATION  UNITS', 

^SPECIFICATION  UNITS',  ^SPECIFICATION  UNITS' 

Angular  Units:  ‘DEGREES’,  ‘RADIANS',  'PIRADIANS',  ‘GRADS’,  'MILS' 

Segment  Identifier  Mode.  ‘FNAME’,  ‘FNUMBER’,  'SNAME’,  'SNUMBER' 

COMMENTS: 

The  image  transformation  is  applied  in  the  order:  rotation  scaling,  and  translation.  If  the 
resulting  image  should  exceed  the  display  surface  address  space,  the  result  is 
undetermined. 

Image  transformations  are  only  applied  if  supported  on  the  current  display  surface. 
Requests  for  image  transformations  will  be  ignored  if  the  display  device  does  not 
support  this  facility.  2D  transformations  will  be  applied  if  3D  transformations  are 
supported. 

Programming  Notes: 
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Subroutine  UINPUT 


Interactive 


FUNCTION: 

This  routine  enables  the  user  to  read  character  data  entered  from  the  alphanumeric  key 
board  of  the  terminal  The  data  will  be  formatted  and  returned  to  the  user  in  one  of  five 
options.  The  options  are  TEXT',  REALNUMBER'.  INTEGER'  OR  XYCOORDINATE' 
XYZ  COORDINATE 

CALLING  SEQUENCE: 

CALL  UINPUT  (DATA, COUNT, FLAG, OPTION) 

Where 

DATA  is  a  single  variable  or  array  to  contain  either  real  number  or  a  GCS  text 
string.  The  sire  of  DATA  is  variable:  it  is  a  single  variable  if  ’REAL'  or 
'INTEGER'  is  specified;  it  is  a  two  word  array  if  XYCOORDINATES'  is 
specified;  and  it  is  of  variable  length  if  'TEXT'  is  specified. 

COUNT  is  a  single  variable  or  constant.  If  the  user  has  specified  TEXT'  input,  then 
COUNT  is  the  maximum  number  of  characters  returned  in  DATA.  The  sire 
of  DATA  must  be  large  enough  to  contain  COUNT  characters.  The 
characters  are  returned  in  Hollerith  format;  left  justified  and  blank  filled.  If 
the  terminal  operator  inputs  fewer  characters  than  requested  in  COUNT, 
then  DATA  will  be  blank  filled  to  the  required  sire.  If  the  user  has  specified 
REAL',  INTEGER  ,  XYCOORDINATE'  or  XYZCOORDINATE'  then  the 
value  of  COUNT  upon  entry  to  UINPUT  is  the  number  of  variables  to  be 
input.  The  sire  of  DATA  must  be  large  enough  to  contain  COUNT 
variables. 

FLAG  is  a  single  variable.  The  value  of  FLAG,  upon  exit  from  UINPUT,  will  be 

negative  if  the  terminal  operator  has  made  an  error  in  entering  the  numeric 
data.  In  this  case,  the  value  of  DATA  is  undefined.  If  the  required  input 
was  correct,  then  the  value  of  FLAG  is  the  number  of  elements  returned  in 
Data.  The  value  of  FLAG  is  always  less  than  or  equal  to  COUNT. 

OPTION  is  a  character  constant  or  variable  which  specifies  the  format  into  which  the 
input  string  will  be  mapped.  The  format  options  are:  'TEXT',  REAL’, 
INTEGER',  XYCOORDINATE'  or  XYZCOORDINATE'. 

OPTIONS  which  may  apply: 

Device  Switching  Options:  MESSAGEDEVICE'.  PLOTDEVICE' 

COMMENTS: 

The  input  begins  at  the  current  beam  or  alphanumeric  cursor  position  Upon  termination 
of  UINPUT.  the  beam  position  in  effect  prior  to  its  invocation  is  restored.  For  a  full 
explanation  of  the  GCS  alphanumeric  input  facility  see  SUBROUTINE  UREAD 


Programming  Notea: 


CHARACTER  0PTC0NMC43 

DIMENSION  COUNTC43,DATA<«3.INDEXC43 

DATA  COUNT, INDEX, X. Y/S . ,  I .,  I .,  I .,  1,3, 4,S,S. ,A0./ 

DATA  OPTION/'TEXT'.  'REAL'.  'INTE'.  'XYCOV 
pai  i  USTART 

CALL  UPSET  C' TERMINATOR7,  f  > * ) 

CALL  UOUTLN 

DO  I  I  -  L  4 

XDX  -  XNDEXCX3 

CALL  UM0VE  CX,Y3 

CALL  UPRNTI  C' ENTER.  , 'TEXT'3 

CALL  UINPUT  CPATACXPX3 , COUNT Cl) , FLAQ, OPT ION Cl 3 3 

ZFCZ . EO . 1 3 CALL  UAPENDCCOUNTC 1 3, PATACZNPCXC 1 33 , PATACXNPEXC 1333 

CALL  USET  C OPTION CI3 3 

CALL  UPRXNT  <X, IS. .DATACXDX33 

X  -  X  ♦  22. S 

Y  -  Y  -  2S. 

I  CONTINUE 
CALL  UEND 
STOP 
END 
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Subroutine  UINVOK 
FUNCTION: 

This  invokes  an  already  constructed  GCS  data  structure.  The  current  beam/pen 
position  becomes  the  origin  of  the  structure's  coordinate  system 

CALLING  SEQUENCE: 


CALL  UINVOK  (NAME) 


Where 

NAME  is  an  eight-character  GCS  structure  name  of  an  already  defined  structure. 
OPTIONS  which  may  apply: 

Invocation  Scaling  Options  (UPSET):  XSCALE',  YSCALE',  'ZSCALE' 

Invocation  Rotation  Options  (UPSET):  'XROTATION',  'YROTATION',  'ZROTATION' 

COMMENTS: 

The  scaling  and  rotation  values  for  each  axis  of  the  structure's  coordinate  system  are 
obtained  from  the  current  settings  of  the  Invocation  Scaling  and  Rotation  Options.  The 
origin  of  the  structure's  coordinate  system  is  set  to  the  current  beam/pen  position.  A  call 
to  UINVOK  is  equivalent  to  a  call  using  relative  coordinates  to  U3CALL  (0  0  - 
0.,SX,SY,SZ,RX,RY,RZ,NAME). 

Programming  Notes: 
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CALL  ATTACH  C2. '/TEK3DENO/SAVE,',3,0,IST, 3 

CALL  USTART 

pai  i  UASPCT  Cl .3 

CALL  UWXNDO 

CALL  UPSET  C 'LIBRARY  FILE'. I .3 

CALL  UTXLTY  C'LOAD',2.3 

CALL  U3HOVE  C-0O..5..0.3 

CALL  UXNVOK  C'BOX  '3 

CALL  UPSET  C 'XSCALE' , 2 . 3 

CALL  U3H0VE  CE..E.,0.3 

CALL  UXNVOK  C'BOX  '3 

CALL  UPSET  C'XROTATXON'.4S.3 

CALL  U3N0VE  C-50. ,-80. ,0. 3 

CALL  UXNVOK  C'BOX  '3 

CALL  UPSET  C'XROTATION',25. 3 

CALL  UPSET  C ' YROTATION  ' . 25 . 3 

CALL  UPSET  C ' YSCALE .53 

CALL  U3HOVE  CB0. ,-80. , 0 . 3 

CALL  UXNVOK  C'BOX  '3 

CALL  UENP 

STOP 

END 
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Subroutine  ULINE 
FUNCTION: 


This  routine  creates  a  line  string  on  the  current  XY-plane  by  connecting  an  array  of 
coordinates  with  lines  drawn  with  the  current  line  option. 

CALLING  SEQUENCE: 


Where 


CALL  ULINE  (X.Y.PTS) 


X  is  an  array  of  length  PTS  containing  the  X-components  of  the  coordinates  of 

the  points  to  be  connected. 

Y  is  an  array  of  length  PTS  containing  the  Y-components  of  the  coordinates  of 

the  points  to  be  connected. 

PTS  is  a  real  variable  which  specifies  the  number  of  points  to  be  connected. 

OPTIONS  which  may  apply: 

All  pen-related  options  (see  UPEN) 


COMMENTS: 

This  routine  will  move  to  the  first  point  specified  and  then  draw  a  line  to  succeeding 
points  until  the  last  point  is  reached  The  pen  or  beam  will  be  left  at  the  last  point. 

This  routine  is  the  complement  of  the  UAXIS  routine.  UAXIS  may  be  used  to  create  an 
axis  and  a  plotting  environment.  ULINE  can  then  be  used  to  plot  within  this  environment. 

In  three-dimension  applications,  the  line  drawn  by  ULINE  will  lie  in  the  current  XY  plane 

Programming  Notes: 


DIMENSION  xce»,vce> 

DATA  X/3a..S«.#7»..SB,.7a..Sa./ 

DATA  Y/M.<7».<98.,e8„««.,M./ 

CALL  USTART 

CALL  ULIME  CX.Y.8.5 

CALL  UEND 

STOP 

END 
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Subroutine  ULINFT 


FUNCTION: 

This  routine  fits  a  linear  equation  to  the  specified  input  data  in  the  least  squares  sense 
and  returns  the  slope  and  intercept  of  the  equation. 

CALLING  SEQUENCE: 

CALL  ULINFT  (X,Y,XN,S,YI) 

Where 

X  are  an  array  of  XN  elements  which  is  the  X  component  of  the  data  points  to 

be  fitted. 

Y  are  an  array  of  XN  elements  which  is  the  Y  component  of  the  data  points  to 

be  fitted. 

XN  is  the  number  of  points  to  be  fitted 

S  is  the  slope  of  the  line  which  is  fitted  to  the  data  points. 

YI  is  the  intercept  of  the  line  which  is  fitted  to  the  data  points. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  number  of  points  to  be  fitted  must  be  greater  than  one. 

Programming  Notes: 
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I 


DIMENSION  XC20),YC20) 

DO  10  I  -  t.  20 

XCI)  -  FLOAT Cl- I >  /  20. 

10  YCI)  -  XCI)«m»3  -  XCI)m»2  ♦  XCI)  ♦  .2 
CALL  USTART 

CALL  USET  C  ■'PERCENT  UNITS' 5 
CALL  USET  C 'SOFTWARE  CHARACTERS' ) 
CALL  UPSET  C' HORIZONTAL', .035 
CALL  UPSET  C ' VERTICAL ' . . 06) 

CALL  UPLOT  <X. Y, I . . 20 . , 'LINE' ) 

CALL  ULINFT  CX.Y.20..SLOPE. YI) 

CALL  UMOVE  C0..YI) 

XI  -  10.  /  20. 

CALL  USET  C' DASHED  LINES') 

CALL  UPEN  CXI,  SLOPEmXX*-YI) 

CALL  UEND 

STOP 

END 
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Subroutine  ULOOK 


3D 


FUNCTION: 

This  routine  allows  the  user  to  specify  a  position  on  the  display  surface  in  which  will  be 
mapped  the  corresponding  portion  of  the  current  virtual  space. 

CALLING  SEQUENCE. 

CALL  ULOOK(XMIN,XMAX,YMIN,YMAX) 


Where 

XMIN,XMAX,YMIN,YMAX  are  the  boundaries  of  the  desired  display  area  in  current 

device  units. 

OPTIONS: 

Device  Coordinate  Units  —  ‘INCHES’, 'CENTIMETERS', 'PERCENTUNITS'. 

■FONTUNITS’.'RASTERUNITS' 

COMMENTS: 

This  routine  first  sets  the  UDAREA  to  the  input  argument  boundary  area.  It  then  calcu¬ 
lates  the  location  of  these  boundaries  using  the  current  UWINDO  setting  to  obtain  a  new 
UWINDO  setting  which  represents  the  corresponding  portion  of  the  virtual  space. 


Programming  Notes: 


CALL  ATTACH  <2, '/TEK3DEM0/SAVE, '.3,0. 1ST. 3 
hai  j  USTART 

CALL  UPSET  C 'LIBRARY', I .3 

CALL  UTILTY  C'LOAD',2.3 

CALL  UWZNDO  C-100.. 100. .-100. .100.3 

CALL  UVXEW  CI00..-2S0..S0..0.. 100. ,8. 3 

CAU.  ULOOK  CS.S.e.S, I ..4.3 

CALL  UOUTLN 

CALL  U3CALL  CO.. 8.. 8.. I . . I . . I . .0..O..0.. 'ROAD  '3 
CALL  ULOOK  C0. .3. . t ..4. 3 
CALL  UOUTLN 

CALL  U3CALL  <0. .0. .0. , 1 . . I . , I . .0. . 8 . . 0. . 'ROAD  '3 

CALL  UENO 

STOP 

END 


Subroutine  ULSTSO 
FUNCTION: 


This  routine  fits  a  polynomial  equation  to  the  input  data  by  the  method  of  least  squares 
and  returns  the  coefficients  of  the  fitted  equation. 

CALLING  SEQUENCE: 

CALL  ULSTSO  (X.Y.XN.COEFF) 

Where 

X  is  an  array  of  XN  elements  which  are  the  X  components  of  the  points  to  be 

fitted. 

Y  is  an  array  of  XN  elements  which  are  the  Y  components  of  the  points  to  be 

fitted. 

XN  is  the  number  of  data  points. 

COEFF  is  the  array  of  polynomial  coefficients  in  ascending  order,  <i.e.,  COEFF(l))  is 
the  coefficient  for  the  polynomial  factor  raised  to  'DEGREE').  The  number 
of  coefficients  returned  is  equal  to  the  degree  of  the  polynomial  fit  plus  one. 

OPTIONS  which  may  apply: 

UPSET  ('POLYNOMIAL',  degree) 

Where 

degree  is  the  degree  of  the  desired  polynomial  fit. 

COMMENTS: 

A  request  for  a  polynomial  fit  of  degree  less  than  or  one  degree,  or  greater  than  ten  is  an 
error.  The  points  to  be  fitted  must  be  in  ascending  order.  Least  squares  computations 
within  the  subroutine  are  carried  out  in  double  precision  arithmetic.  Users  are  cautioned 
against  attempting  to  perform  a  high  degree  fit  with  a  small  number  of  data  points 


Programming  Notes: 


PARAMETER  IDE3RE-7 

DIMENSION  A  CIDEGRE7 , X  <207 , Y <205 

DATA  X/0.,6., t0., 16..20..25. .38.. SB. . 40.,  46 .,50., 55., 00 
&  OB. .70. ,75. ,00. ,85. ,00. .96./ 

DATA  Y/3..0..20..32..40.  .56. .00. ,00. .50 . .48 . ,40. ,37 . ,3E 
A  37.  .42. ,40. .68. ,00. .82. .06./ 

CALL  USTART 
CALL  UOUTLN 

CALL  UPSET  C  POLYNOMIAL * , FLOAT  <IDEGRE- 1  7  7 
DO  2  I  *1,  20 
XN  -  FLOAT <17 
CALL  USET  </N+/ 7 
CALL  UPEN  <X<I7.Y<I77 
CALL  USET  C' LINE' 3 
2  CONTINUE 

CALL  UMOVE  <0.0,0.07 
CALL  ULSTSQ  CX.Y.XN.A7 
DO  5  I  -I,  100 
Y0  -  ACO 
X0  -  FLOAT  <17 
XK  -  X0 

DO  4  J  -  2,  IDE6RE 
Y0  -  ACU7  ••  XK  ♦  Y0 
XK  -  XK  •  X0 

4  CONTINUE 

CALL  UPEN  CX0.Y07 

5  CONTINUE 
CALL  UEND 


Subroutine  UMARGN 
FUNCTION: 

This  routine  sets  the  lelt.  right,  top.  and  botiom  alphanumeric  margins  for  hardware 
characters  to  the  device  dimensions  specified. 

CALLING  SEQUENCE: 

CALL  UMARGN  (XLEFT.XRiGHT.YBOTTM.YTOP) 


Where 

XLEFT  is  the  X-coordinate  of  the  location  of  the  left  margin  in  device,  rectangular, 
absolute  user  units. 

XRIGHT  is  th  X-coordinate  of  the  right  margin  in  device,  rectangular,  absolute  use; 
units. 

YBOTTM  is  the  Y-coordinate  of  the  bottom  margin  device,  rectangular,  absolute  user 
units 

YTOP  is  the  Y-coordinate  of  the  top  margin  in  device,  rectangular,  absolute  user 

units. 

OPTIONS  which  may  apply: 

‘INCHES’,  ‘CENTIMETERS',  PERCENTUNITS',  ‘FONT',  RASTER- 

COMMENTS: 

The  margins  specified  refer  to  the  device  coordinate  system  and  apply  only  to  the  output 
of  hardware  characters  Software  characters  will  be  affected  by  the  margin  settings 
when  UPRINT/UPRNT  is  called  using  DEVICE  coordinates  If  the  right  margin  position 
specified  is  less  than  the  left  margin  position,  the  margin  is  not  changed  and  an  error 
message  is  generated  (see  Error  Appendix).  Similarly,  if  the  top  margin  position 
specified  is  not  greater  than  the  bottom  margin,  the  margin  is  not  changed  and  an  error 
message  is  generated 


Programming  Notes: 


mi  i  USTART 

CALL  UPSET  < 'TERMINATOR  7 ,  '  j  '  ) 

CALL  UCET  C' PERCENT  UNITS') 
pai  i  UOUTLN 

CALL  UDAREA  <58.  .70.  J 

PA1 4  UOUTLN 

CALL  USET  C 'DEVICE') 

CALL  UNARQN  <50. .79. ,A0.. 7®.) 

CALL  UPRXNT  <50., 70.. 'THIS  IS  AN  EXAMPLE  OF  THE  MARGINING 
•EFFECTS  WITHIN  A  DEFINED  UDAREA* ' ) 

CALL  UEND  / 


Subroutine  UMENU 


Interactive 


FUNCTION. 

This  routine  displays  a  menuboard  containing  up  to  ten  options  which  are  offered  for 
selection  The  user  selects  an  option  using  the  terminal’s  graphics  input  device  (if  it  has 
one)  or  keyboard  (if  it  doesn't).  The  number  of  the  option  selected  is  returned  to  the  user. 

CALMNG  SEQUENCE: 

CALL  UMENU  (OPTNO.OPTNAM, SELECT) 


Where 

OPTNO  is  a  FORTRAN  REAL  variable  whose  absolute  value  indicates  the  number  of 
options  available  and  whose  sign  determines  whether  the  menuboard 
already  is  being  displayed.  A  positive  value  indicates  that  the  menuboard 
should  be  created;  a  negative  value  indicates  that  the  menuboard  is  already 
being  displayed. 

OPTNAM  is  an  array  containing  the  eight-character  names  of  the  options  for  this 
menu.  These  names  need  not  have  GCS  string  terminators.  There  must  be 
one  name  for  each  option. 

SELECT  is  the  identifying  number  of  the  option  chosen  by  the  user  which  is 
returned  to  the  calling  program. 

OPTIONS  Which  may  apppy: 

Hardware  Character  S*ze.  ‘SMALL’,  ‘MEDIUM',  'LARGE',  EXTRALARGE'  (see  U3PRNT). 
Graphics  Input  Device:  'CURSORS’,  'KEYBOARD',  etc.  (see  UGRIN). 

COMMENTS: 

The  menuboard  is  normally  displayed  on  the  left  side  of  the  plotting  surface.  If  the 
device  has  no  graphics  input  device,  then  the  menu  is  displayed  alphanumerically  on  the 
control  device.  The  identification  numbers  have  been  designed  so  that  the  value 
returned  to  the  user  is  a  REAL  number  whose  INTEGER  value  is  suitable  for  use  as  a 
COMPUTED  GO  TO  index.  If  the  user  selects  outside  of  the  displayed  menu  elements, 
the  user  is  asked  to  select  an  option  again. 


Programming  Notes: 


DIMENSION  MENUCIS) 

DATA  MENU/ 'OPTION I '0PTI0N2'. 'OPTIONS', 'OPTION4'. 'OPTIONS', 
CALL  USTART 

CALL  UPSET  < 'TERMINATOR', •, ') 

CALL  USET  C'LARCE') 

CALL  USET  C 'PERCENT  UNITS') 

CALL  UDAREA  C2S. ,SS. ,0. ,  IM.) 

CALL  UOUTLN 

CALL  UHENU  <10.. MENU, SELECT) 

CALL  UPRINT  C2S. ,S0..  'OPTION  >  '5 
CALL  UPRNTI  (SELECT, 'INTESER' ) 

CALL  UPRNTI  C'  SELECTED 'TEXT') 

CALL  UEND 

STOP 

END 
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Subroutine  UMODFY 


3D 


FUNCTION: 

This  routine  modifies  the  setting  of  segment  attributes  for  existing  retained  segments. 

CALLING  SEQUENCE: 


CALL  UMODFY(SEGID,ATID,ATVAL) 


Where 

SEG1D  is  the  segment  identifier  of  the  segment  whose  attribute  is  to  be  changed 

(see  UOPEN  for  a  description  of  SEGID). 

ATID  is  the  attribute  identifier  of  the  segment  attribute  whose  setting  is  to  be 

modified.  Only  three  segment  attribute  identifiers  are  allowed: 

VISIBILITY' 

'HIGHLIGHTING' 

DETECTABILITY' 

Only  the  first  four  characters  are  significant. 

ATVAL  is  the  value  to  which  the  indicated  segment  attribute  is  to  be  set.  Valid 
values  are  'ON'  and  'OFF'.  Any  other  value  will  generate  an  error  and 
retain  the  existing  setting. 

OPTIONS  which  may  apply: 

Segment/Frame  Identifier  Mode:  ‘FNAME’,  FNUMBER’ 

Segment  Posting  Mode:  ‘IMMEDIATE’,  'DELAYED' 

COMMENTS: 

If  the  new  segment  attribute  value  involves  removing  information  from  the  display 
surface,  then  this  will  occur  immeditely  if  >n  IMMEDIATE'  segment  posting  mode.  If  in 
DELAYED'  segment  posting  mode,  the  information  will  be  removed  at  the  next  UPOST  or 
UERASE,  or  UDELET  or  UMODFY  in  'IMMEDIATE'  segment  posting  mode,  whichever 
occurs  first. 

Visibility  specifies  whether  the  segment  is  to  be  displayed  or  merely  defined  Highlights 
will  occur  by  blinking  if  possible  on  the  selected  display  device.  Otherwise,  heightened 
intensity  or  wider  lines  may  be  substituted  Detectability  controls  whether  the  segment 
can  be  recognized  during  ‘pick'-type  input  operations. 


Programming  Notea: 


Subroutine  UMOVE 
FUNCTION: 

The  beam/pen  is  positioned  at  the  location  specified  in  the  arguments.  No  visible  output 
will  appear  on  the  termial. 

CALLING  SEQUENCE: 

CALL  UMOVE  (X,Y) 

Where 

X  is  the  X-  or  RADIUS  coordinate  in  current  user  units. 

Y  is  the  Y-  or  THETA  coordinate  in  current  user  units. 

OPTIONS  which  may  apply: 

Pen  Coordinate  Options  (see  UPEN) 

Coordinate  System  Options  (see  UCOSYS) 

COMMENTS: 

The  execution  of  this  subroutine  has  no  effect  on  the  pen  status  option  (i.e.,  the  line/ 
terminator  specification).  The  beam  movement,  although  invisible  is  subject  to 
windowing.  The  operation  of  UMOVE  is  identical  to  that  of  UPEN  when  the  pen  status 
specified  in  'NNUL'  (see  UPEN). 

Programming  Notes: 
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Subroutine  UNSAVE 
FUNCTION: 

This  routine  will  restore  the  Graphics  Status  Area  (GSA)  to  its  condition  at  the  time  the 
array  from  which  the  status  is  obtained  was  loaded. 

CALLING  SEQUENCE: 

CALL  UNSAVE  (SARRAY) 


Where 

SARRAY  is  an  array  in  which  a  previous  state  of  the  GSA  was  saved  by  USAVE. 
OPTIONS  which  may  apply 
No  options  apply. 

COMMENTS: 

The  user  should  avoid  modifying  the  contents  of  the  save  array  before  he  calls  UNSAVE 
as  this  may  cause  indeterminate  effects  during  subsequent  graphics  operations.  The 
current  pen  position  is  restored  to  the  position  which  is  specified  in  the  saved  array. 


Programming  Notes: 


Subroutine  UNSHOW 
FUNCTION: 

To  request  that  the  named  framo  be  placed  in  omit  status. 

CALLING  SEQUENCE: 


CALL  UNSHOW  (NAME) 


Where 

NAME  is  an  eight  character  alphanumeric  constant  or  variable  of 
defined  frame. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  execution  of  this  subroutine  causes  the  frame  NAME  to  be  deactivated  01 
the  display  screen.  The  frame  must  have  been  previously  defined  by  a 
UFRAME  and  subroutine  UFRAME  and  subroutine  UFREND  pair. 

Programming  Notas: 


a  currently 


i  the  face  of 
subroutine 


Subroutine  UNSVPN 
FUNCTION: 

This  routine  restores  the  state  of  all  pen-related  variables  in  the  Graphics  Status  Area 
(GSA)  to  their  condition  at  the  time  the  array  from  which  the  status  is  obtained  was 
loaded. 

CALLING  SEQUENCE: 


CALL  UNSVPN  (SARRAY) 


Where: 

SARRAY  is  an  array  in  which  the  state  of  all  pen-related  variables  of  the  GSA  was 
saved  by  USVPN. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

For  a  description  of  when  UNSVPN  should  be  used,  see  USVPN.  The  user  should  avoid 
altering  the  contents  of  the  save  array  before  he  calls  UNSVPN  as  this  may  cause 
indeterminate  effects  during  subsequent  graphics  operations  The  current  pen  position 
is  restored  to  the  position  which  is  specified  in  the  saved  array. 


Programming  Notes: 


Subroutine  UNSVTR 
FUNCTION: 

This  routine  will  restore  the  user  coordinate  system  transformation  status  of  the 
Graphics  Status  Area  (GSA)  to  its  condition  at  the  time  the  array  from  which  the  status  is 
obtained  was  loaded. 

CALLING  SEQUENCE: 

CALL  UNSVTR  (SARRAY) 

Where 

SARRAY  is  an  array  in  which  a  previous  state  of  the  coordinate  system  transform  was 

saved  by  USVTR. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  invocation  of  this  subroutine  will  cause  the  automatic  reactivation  of  the  user 
coordinate  system  which  was  in  effect  at  the  time  that  the  array  was  loaded.  The  user 
should  avoid  modifying  the  contents  of  the  save  area  before  he  calls  UNSVTR  as  this 
may  cause  indeterminate  effects  during  subsequent  graphics  operations. 

Programming  Note*: 


Subroutine  UOPEN  3D 

FUNCTION: 

This  routine  creates  a  segment/frame  with  the  specified  name  and  characteristics.  Sub¬ 
sequent  primitives  will  be  inserted  into  the  segment. 

CALLING  SEQUENCE: 

CALL  UOPEN(SEGID) 

Where 

SECID  is  a  real  number  whose  integer  value  is  a  positive  integer  (if  in  'FNUMBER' 

mode)  or  is  a  Hollerith  string  of  eight  characters  (if  in  'FNAME'  mode) 
which  will  be  used  as  the  segment  identifier. 

OPTIONS  which  may  apply: 

Retained  Segment  Type  ‘NOTRANSFORMATION’  Segment  cannot  be 

transformed 

2DTRANSLATION'  Segment  can  be  translated  in 

2D 

'2DGENERAL'  Segment  can  be  translated, 

scaled  and  rotated  in  2D 

3DTRANSLATION'  Segment  can  be  translated  in 

3D 

'3DGENERAL'  Segment  can  be  translated  , 

scaled  and  rotated  in  3D 

Segment/Frame  Identifier  Mode:  ‘FNAME’,  'FNUMBER' 

Segment  Retention  Mode:  ‘RETAINED’,  'NONRETAINED',  'STORAGE', 

‘REFRESHED’ 

Segment  Visibility:  ‘VISIBLE’,  ‘INVISIBLE’ 

Segment  Highlighting.  ‘NOHIGHLIGHTING’,  'HIGHLIGHTING' 

Segment  Detectability:  ‘UNDECTABLE’,  DETECTABLE',  'SENSITIZED'. 

'DESENSITIZED' 

COMMENTS: 

Segments  may  be  created  in  either  of  two  modes,  'RETAINED'  ('REFRESHED')  and  ‘NON- 
RETAINED'  ('STORAGE').  Segments  which  are  RETAINED’  may  be  transformed  (if 
specified)  and  their  segment  attributes  may  be  modified  (see  description  of  segment 
attributes  below).  Segments  which  are  NONRETAINED’  are  displayed  but  their  descrip¬ 
tions  are  not  saved.  Such  segments  will  disappear  when  the  display  surface  is  erased  or 
posted  (see  UPOST).  The  following  discussion  pertains  only  to  'RETAINED'  segments. 

Each  RETAINED'  segment  has  three  segment  attributes  associated  with  it:  visibility, 
highlighting,  and  detectability.  The  visibility  attribute  determines  whether  a  segment  is 
displayed  or  not  The  highlighting  attribute  indicates  whether  the  segment  should  be 
displayed  in  some  enhanced  mode.  The  detectability  attribute  governs  the  sensitivity  of 
the  segment  to  pick'  input.  When  a  segment  is  UOPENed,  the  segment  attributes  are  set 
to  current  settings  contained  in  *he  GSA.  Segment  attributes  may  be  modified  at  any 
time  by  the  UMOOFY  (q.v.)  function. 
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After  the  segment  has  been  opened,  the  current  value  of  the  following  GCS  modes  will  be 
placed  in  the  segment: 

line  width 

intensity/brightness 
line  style 
text  angle 

hardware  character  size 
text  font 


Image  transformations  may  be  applied  to  'RETAINED'  segments  if  the  display  device  is 
capable  of  supporting  these  transformations.  Attempts  fo  perform  image  transforma¬ 
tions  on  devices  which  do  not  have  the  capability  will  be  ignored  and  the  segment  will 
remain  untransformed.  It  should  be  noted  that  image  transformations  involve  moving 
images  around  on  the  display  surface  and  are  not  the  same  as  moving  objects  in  virtual 
space.  Four  routines  are  provided  for  applying  image  transformations  as  indicated: 

Transformation  Applied  By 


'2DTRANSLATION' 

'2DGENERAL' 

'3DTRANSLATION' 

'3DGENERAL' 


UPLACE(X,V,NAME) 

UIMAGE(X,Y,SX,SY,R,NAME) 

U3PLAC(X,Y,Z,NAMF) 

U3IMAG<X,Y,Z,SX,SY,SZ,RX,RY,RZ,NAME) 


Image  transformation  may  only  be  applied  to  a  retained  segment  which  has  been 
UOPEN'ed  with  the  retained  segment  type  mode  set  to  a  type  at  least  as  general  as  the 
image  transformations  to  be  performed  on  the  segment.  The  default  type  is 
'NOTRANSFORMATIONS’. 

The  highlighting  attribute  will  be  implemented  by  the  use  of  blinking  whenever  possible. 
The  rate  of  blink  may  be  controlled  by  the  USET  options  'SLOWBLINK'  and  'FASTBLINK' 
The  defult  rate  is  'SLOWBLINK'. 


Programming  Notes: 
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Subroutine  UORIGN 


FUNCTION: 

A  user  coordinate  system  is  composed  at  the  current  beam  position.  No  rotation  or  scale 
factors  are  applied  to  the  new  coordinate  system 

CALLING  SEQUENCE: 

CALL  UORIGN 

OPTIONS  which  may  apply: 

‘WORKINGAXIS’ 

‘REFERENCEAXIS’ 

COMMENTS: 

The  invocation  of  this  subroutine  causes  the  creation  of  a  new  origin  (0  ,0.)  at  the  current 
beam  position  with  respect  to  the  current  origin.  The  rotation  factor  is  assumed  to  be 
zero  and  the  scale  factors  are  assumed  to  be  one.  For  a  detailed  discussion  of  the  GCS 
coordinate  system  faculty,  refer  to  subroutine  UCOSYS. 

Programming  Notes: 


Subroutine  UOUTLN 
FUNCTION: 

This  routine  draws  a  line  along  each  edge  of  the  current  device  display  area  into  which 
the  user's  virtual  window  will  be  mapped,  or  around  each  edge  of  the  entire  device 
plotting  surface. 

CALLING  SEQUENCE: 


CALL  UOUTLN 


OPTIONS  which  may  apply: 

UDAREA  setting 

Coordinate  space  selection:  ‘VIRTUAL’,  'DEVICE' 

COMMENTS: 

This  routine  is  convenient  for  outlining  the  virtual  window  plotting  area  if  GCS  is  set  to 
'VIRTUAL'  and  the  physical  boundaries  of  the  device  if  GCS  is  set  to  ‘DEVICE’. 

Programming  Notes: 
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cai  i  USTART 

CAU-  UPSET  C ' TERMINATOR ' . ';  '3 
CALL  USET  <'EXTRALAR8E'3 
CALL  USET  C' PERCENT  UNITS' > 

CALL  (JO AREA  C30..00..  10. ,80.) 

CALL  UOUTLN 

CALL  USET  C'BACKARROWO 
CALL  UMOVE  <0.,30.3 
rAi  i  (jpEN  C30  .  30.3 

CALL  UPRINT  <30.. 30.. 'VIRTUAL  OUTLINE  BY  UOUTLN; '3 

CALL  USET  C' ARROW' 3 

CALL  OPEN  C 1 00 .  ,  30 . 3 

CALL  USET  C' DEVICE '3 

CALL  UOUTLN 

CALL  USET  C'BACKARROW'3 
CALL  UHOVE  C0..60.3 
CALL  UPEN  C30..E0.3 

CALL  UPRINT  <30. , 60. . 'DEVICE  OUTLINE  BY  UOUTLN; '3 
CALL  USET  C' ARROW' 3 
CALL  UPEN  <100. , SO. 3 
CALL  UEND 


Interactive 


o  suspend  execution  until  cne  character  is  entered  from  keyboard. 


CALLING  SEQUENCE 


CALL  UPAMSE 


OPTIONS 


No  options  apply. 


Programming  Note* 


Subroutine  UPEN 
FUNCTION: 

This  routine  draws  a  vector  of  the  type  indicated  by  the  current  line  option  from  the 
current  beam  position  (vector  tail)  to  the  location  specified  by  the  arguments  (vector 
head).  The  current  beam  position  is  updated  to  point  to  the  head  of  the  vector. 

CALLING  SEQUENCE: 


CALL  UPEN  (X,Y) 


Where 

X  is  the  X-  or  RADIUS  coordinate  of  the  head  of  the  vector  in  current  user 

units. 

Y  is  the  Y-  or  THETA  coordinate  of  the  head  of  the  vector  in  current  user 

units. 

OPTIONS  which  may  apply: 

See  U3PEN 

Default  Z  value  -  UPSETf'ZVALUE. value) 

COMMENTS: 

All  pen  movements  performed  by  GCS  are  made  in  a  three  dimensional  space.  For 
UPEN,  the  third  dimension  is  specified  by  the  current  X-Y  plane,  which  is  zero  by  default. 

In  the  three  dimensional  version  of  GCS,  this  plane  can  be  changed  by  a  call  to  UPSET, 

i.e. 


CALL  UPSET  CZVALUE  ,  VALUE) 

If  the  current  coordinate  system  is  in  SPHERICAL  coordinates,  then  VALUE  is  the  PHI 
component. 


Programming  Notes: 


Subroutine  UPEN1 


FUNCTION: 

To  draw  a  vector  from  the  current  beam/pen  position  to  the  specified  endpoint  and  to  set 
an  option  which  is  in  effect  only  during  the  execution  oi  the  subroutine. 

CALLING  SEQUENCE: 

CALL  UPEN1  (X.Y.OPT) 


Where 

X  is  the  X-  or  RADIUS  coordinate  of  the  head  of  the  pen/beam  movement 

desired. 

Y  is  the  Y-  or  THETA  coordinate  of  the  head  of  the  pen/beam  movement 

desired. 

OPT  is  the  USET  option  to  be  set  only  during  the  execution  of  this  subroutine. 

OPTIONS  which  may  apply: 

Any  USET  options 

See  UPEN  for  a  description  of  options  effecting  oen/beam  movements. 

COMMENTS: 

UPEN1  is  convenient  for  setting  options  effective  for  only  one  pen/beam  movement; 
although  any  USET  option  may  be  specified,  only  those  which  may  appiy  to  the 
execution  of  UPEN  (see  UPEN  writeupf  will  be  effective.  The  Graphics  Status  Area 
variable  which  is  modified  will  be  restored  to  its  previous  condition  after  execution  of  the 
beam/pen  movement. 


Programming  Notea: 


r*i  i  (JSTART 

CALL  UPSET  C 'TERMINATOR', '  j  '5 
CALL  USET  C'EXTRALAROE'5 
CALL  UOUTLN 
CAt-L  UMOVE  <6.. 50.) 

CALL  UPEN  C20..CS.5 

CALL  UPEN  I  C  48 . , 3S . ,  '  D ARROW '  5 

CALL  UPEN  COO. ,66.) 

CALL  UPEN  l  COO . , 40 . , 'TDOUOLEARI 

CALL  UPEN  COO.. 00.5 

CALL  UPR3NT  C26. . 46. . 'UPENt i ' 5 

CALL  UPRINT  C06. . 46 . , 'UPENI t  ' 5 

CALL  UENO 

STOP 

END 


Subroutine  UPIE 


FUNCTION. 

This  routine  draws  a  general  purpose  pie  chart  The  current  user  display  area  will  be 
used  and  the  pie  graph  will  be  drawn  and  scaled  according  to  user  specifications. 

CALLING  SEQUENCE: 

CALL  UPIE  (ARRAY, PTS, LABELS, XMAXL) 

Where 

ARRAY  is  a  real  array  of  data  points  from  which  the  pie  chart  is  drawn 

PTS  is  a  real  constant  or  variable  which  is  the  number  of  elements  in  ARRAY 

LABELS  is  an  array  of  labels  for  the  elements  within  the  pie  chart. 

XMAXL  is  a  real  constant  or  variable  which  is  the  maximum  length  or  the  length  of 

the  largest  label  in  the  LABELS  array. 

OPTIONS  which  may  apply: 

X  Axis  Labeling:  ‘XALPHABETIC’  NOXLABEL' 

Display  Area.  ‘NEWSCALE’  OLDSCALE' 

Span:  SPAN' 

Starting  Angle:  'STARTANGLE' 

COMMENTS: 

UPIE  will  place  the  labels  from  the  label  array  on  the  individual  slices.  The  specification 
of  XALPHABETIC’  will  cause  an  X  axis  label  title  to  be  outputed.  If  the  individual  slices 
are  not  big  enough  to  contain  labels  then  the  labels  will  appear  outside  of  the  pie  chart. 
All  input  data  is  normalized  so  that  each  pie  slice  appears  of  a  percentage  of  the  total. 
This  subroutine  will  terminate  with  error  indications  if  the  number  of  points  any  input 
data  value,  or  the  maximum  pie  label  size  is  invalid.  It  will  also  terminate  if  the  display 
area  is  not  of  sufficient  size 

The  default  piechart  drawn  by  a  call  to  UPIE  encompasses  a  full  circle  with  the  initial 
wedge  starting  at  0.  A  portion  of  the  circle  can  be  drawn  instead  by  specifying  the  angle 
subtended  by  the  graph  by  calling 

UPSET  ('SPAN', ANGLE) 

The  piechart  can  be  started  at  an  angle  other  than  zero  by  calling 

UPSET  ('STAR TANGLE’, ANGLE) 

Programming  Notes: 


AL®OL  -  4S 


COBOL  - 

FORTRAN  -  *** 

PASCAL  -  1 8* 

OOVIAL  -  2* 

SIMfiCRIPT  -  2* 

6NO0OL  -  -4* 


DIMENSION  DATAC7)  H 

CHARACTER  LABELS*! 0C7)  . 

DATA  uSks/'ALWll^icOBOU':  'FORTRAN,  '  PASCAL  i'  JOVIAL  ; 


'SINSCRIPT) 'SNOBOL, '/ 


CALL  VFSCTTC/TERMINATOR'.'i,5 
gflj  SlETC^!a5SEE^TYPICAL  LAN8UA3E  UTILIZATION)  '  5 
call  UPIE  CDATA,7.,LABELS,t«.) 
rALL  usET  C'DEVICE') 

CALL  USET  C' PERCEN  UNITS') 

CALL  UDAREA  CS. , I08..8., l««.) 

^•V-VlBO?  /  FLOATC7*!)) 

CALL  iSSS I  C<LABELSCI)^TEXT '  ) 

St  SSS!  ^aCTeJero 

CALL  UPRNTt  C'Xt  'TEXT') 

I  CONTINUE 
CALL  UEND 
STOP 
END 
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Subroutine  UPLACE 


3D 


FUNCTION: 

This  routine  applies  a  2-D  image  translation  transformation  to  the  indicated  segment. 

CALLING  SEQUENCE: 


CALL  UPLACE  (X.Y.SEGID) 


Where 

X,Y  is  the  new  position  of  the  segment  in  current  2-D  device  units. 

SEG1D  is  the  identifier  of  a  'retained'  segment/frame  which  was  UOPENed  for  at 

least  2-D  image  translations. 

OPTIONS  which  may  apply: 

Device  Units:  ‘INCHES’,  ‘CENTIMETERS',  'FONTUNITS',  ‘SPECIFICATION  UNITS', 
‘PERCENT  UNITS' 

Specification  Unit  Size  (UPSET) :  ‘SPECIFICATION  UNITS',  'XSPECIFtCATION  UNITS', 

YSPECIFICATION  UNITS'.  ^SPECIFICATION  UNITS' 

Segment  Identifier  Mode:  ‘FNAME’,  ‘FNUMBER’,  'SNAME',  ‘SNUMBER' 

Segment  Type.  'NOTRANSFORMATIONS’,  '2DTRANSLATION',  '2DGENERAL', 
'3DTRANSLATION',  '3DGENERAL' 

COMMENTS: 

The  image  transormation  is  applied  to  the  specified  segment.  If  the  resulting  image 
exceeds  the  display  dimensions,  the  result  is  undetermined. 

Image  transformations  are  only  applied  if  supported  on  the  current  display  surface. 
Requests  for  image  transformations  will  be  ignored  if  the  display  device  does  not 
support  this  facility. 

Programming  Notea: 
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Subroutine  UPLOT 


FUNCTION: 

This  routine  provides  a  general  purpose  numeric  plotting  capability.  Given  two  arrays  of 
corresponding  coordinates  of  one  or  more  curves,  it  will  scale  and  plot  these  points 
along  with  suitable  axes  and  labels  as  specified  by  the  user  within  the  current  UDAREA. 
The  virtual  window  will  be  modified  to  reflect  the  resultant  scaling. 

CALLING  SEQUENCE: 

CALL  UPLOT  (X,Y, CURVES, PTS, OPTS) 


Where 

is  the  array  of  X  or  RADIUS  coordinates  for  the  points  for  all  the  curves  in 
current  user  units. 

is  an  array  of  Y  or  THETA  coordinates  for  the  points  for  all  the  curves  in 
user  units. 

is  a  single  variable  which  indicates  the  number  of  curves  to  be  plotted. 

is  the  array  which  indicates  how  many  points  are  in  each  curve. 

is  the  array  which  specifies  which  USET  option  will  apply  to  each  curve  as  it 
is  being  plotted.  One  option  must  be  specified  for  each  curve  and  only  the 
first  four  characters  of  the  option  name  should  be  specified. 

OPTIONS  which  may  apply: 

Coordinate  Type  Options:  ‘RECTANGULAR’,  POLAR'.  'LOGARITHMIC'  UAXIS 

Options,  (see  UAXIS) 

Scaling  Type  Options:  ‘AUTOSCALE’,  'FULLSCALE',  'OWNSCALE' 

Scale  Availability  Options:  ‘NEWSCALE’,  ‘OLDSCALE’ 

Pen  Options:  seeUPEN 
Color  Options:  seeUPEN 

Curve  Fitting  Options:  ‘NOFITTING’,  FITLINEAR’,  ‘FITPOLYNOMIAL’,  'FITSPLINE' 

COMMENTS: 

UPLOT  is  a  powerful  routine  which  provides  a  flexible,  yet  easy  to  use  means  of  plotting 
tabular  data.  Plotting  will  take  place  in  'VIRTUAL'  space  and  the  'SYSTEM'  coordinate 
system  (see  UCOSYS).  The  input  arrays,  X  and  Y,  contain  the  points  for  each  curve.  The 
number  of  points  in  any  curve  is  independent  of  the  number  of  points  in  any  other  curve. 
This  flexibility  is  possible  because  the  input  array  POINTS  specifies  how  many  points 
are  in  each  curve.  The  OPTS  array  will  contain  one  element  for  each  curve.  Each 
element  will  contain  the  first  four  characters  of  the  name  of  the  USET  option  which  is  to 
apply  to  the  corresponding  curve.  Normally,  these  options  will  be  line  options  (see 
UPEN).  However,  they  can  be  any  legal  USET  option.  So  special  effects  may  be  possible 
by  using  such  options  as  'RELATIVE',  a  cclor  option  (see  below),  or  a  coordinate  type 
option  in  conjunction  with  the  use  of  'OWNSCALE'  The  choice  of  option  is  left  to  the 


X 

Y 

CURVES 

PTS 

OPTS 


anmhinninfl,heHU?er  .H°wever-  ,he  user  is  warned  that  some  options  may  produce 
ambiguous  or  indeterminate  results. 

THE  AXES  AND  LABELS: 

iS  n°feS!rif,ion  as  t0  ,he  number  of  P°in,s  in  any  curve,  all  points  should 
ai® ,yp®  smce  ,his  specification  will  dictate  the  kind  of  axes  which 
will  appear,  and  the  mode  in  which  the  pints  will  be  plotted.  The  axes  and  labels  will  be 

cXdlromUploT  r  SUb:OU,ine  UAX,S  UAX'S  options  are  available  when  U  AXIS  is 
called  from  UPLOT.  For  a  description  of  these  options  see  UAXIS. 

THE  SCALING: 

Scahng  is  performed  by  UAXIS  based  on  its  input  parameters.  If  'NEWSCALC‘  has  been 
specified  the  input  parameters  will  either  be  calculated  by  UPLOT  from  the  input  arrays 
X  and  Y,  (  AUTOSCALE’  or  ’FULLSCALE')  or  will  be  obtained  from  the  cur  eSt  window 
spec  , cation  COWNSCALE')  If  OLDSCALE’  has  been  specified  the 
calculations  will  be  considered  active  and  the  scaling  factors  will  not  be  recalculated 

CURVE  FITTING: 

The  default  condition  for  automatic  curve  fitting  is  ‘NOFITTING’.  However  the  user  can 
also  specify  a  FITLINEAR’,  a  'FITPOLYNOMIAL',  a  or  a  ‘FITSPLINE  For  a  detailed 

TN T L I NEA R ' °U LS^" SO  r  T I T P ni <ym r?u /a i  Ca,CU,a,e  ,he  ,i,s  YO^elf,  see  ULINFT  for 
t-i  i  LINEAR  ULSTSQ  for  FITPOLYNOMIAL  ,  and  UPSLIN'  for  ‘FITSPLINE1  The  OPTR 

array  specification  used  for  the  original  points  will  also  be  used  for  the  fitted  curve 
COORDINATE  REPEATABILITY 

*  in?/0rJ  components  of  the  coordinate  provided  may  be  helo  constant  or 
hPt6, Vnd  °\  l  c“rves  Thus  11  several  curves  are  to  be  drawn  with  identical  X  values 
XREPEAT  sLrl!ZS  T"  *  ValUeS  ^  speci,ied  onlY  once-  ™d  the  USET  option 

i^ONSTANT  i,^icoNSTANT^nenl,S  '°  be,he'd  const*n<-  then  the  USET  options 
provided  YCONSTANT  may  be  speeded  and  only  a  single  X  or  Y  value 

Programming  Notes: 


12? 


DIMENSION  XC3005.  YC300).  P0INTSC35 
INTEGER  OPTSC35 

DATA  OPTS/ '  LINE '.'D  ASH '.'ANULV 
DATA  POINTS/100.. 190., 108./ 

DO  10  I  -  t.  100 

Xd>  -  FT.OATCI5  /  10. 

YCI>  -  SINCXCI55  *  6.0 
YCIH00>  -  COSCXCI55  «  6.0 
YCZ+200)  -  SINCXCI3+3. 141605  »  6.0 
10  CONTINUE 
f*Ai  i  USTART 

CALL  UPSET  C'SETDASH'. I .5 
CALL  USET  C' PERCENT  UNITS O 
CALL  USET  C'SOFTO 
CALL  UPSET  C ' HORIZONTAL '. .35 
CALL  UPSET  C' VERTICAL'. .65 
CALL  USET  < ' XREPEAT ' > 

CALL  UPLOT  CX.Y. 3.. POINTS. OPTS5 

CALL  UEND 

STOP 


Subroutine  UPLOT1 
FUNCTION: 

This  routine  provides  a  general  purpose  numeric  plotting  capability.  Given  two  arrays  or 
corresponding  coordinates  of  one  curve,  it  will  scale  and  plot  these  points  along  with 
suitable  axes  and  labels  as  specified  by  the  user  within  the  current  scaling. 

CALLING  SEQUENCE: 

CALL  UPLOT1  (X,Y,PTS) 

Where 

X  is  the  array  of  X-  or  RADIUS  coordinates  for  the  points  of  the  curve  in 

current  user  units. 

Y  is  the  array  of  Y-  or  THETA  coordinates  for  points  of  the  curve  in  current 

user  units. 

PTS  is  a  variable  specifying  the  number  of  points  in  the  curve. 

OPTIONS  which  may  apply: 

All  UPLOT  options 

COMMENTS: 

This  subroutine  will  reformat  the  input  information  to  invoke  UPLOT  to  produce  the 
curve.  See  UPLOT  for  a  complete  description  of  the  options  available. 

Programming  Notes: 
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DIMENSION  RC36I 5.THETAC38I 5 
DATA  PI.W.Y0/3. 14169206.0. 6.4.71/ 

DO  I  I  -  I.  361 

1  THETACI)  -  FLOAT <15  •  PI  /  160.0 
CALL  USTART 

CALL  USET  < 'POLAR' 5 
CALL  USET  C' RADIANS') 

CALL  USET  <' NO AXES') 

CALL  USET  C'NOXLABEL'3 
CALL  USET  C'NOYLAfJEL') 

DO  3  I  ■  I.  2 
X0  -  -I  .5 
Y0  -  Y0  -  1.6 
DO  3  J  -  I.  4 
W  -  W  ♦  0.S 
X0  -  X0  ♦  I .6 

CALL  UDAREA  CX0.  CX0+I  .55,  Y0.  CY0+I  .655 
CALL  UOUTLN 
DO  2  K  -  1.  361 

2  ROO  -  l  .  2—0 . 7*»<ABS<COS<M»THETA<K5  55—A0SCSIN<W»THETACK5  5)5 
CALL  UPLOTI  <R, THETA. 30 I .05 

3  CONTINUE 
CALL  UEND 


Subroutine  UPLYGN 
FUNCTION. 


This  routine  creates  a  regular  ploygon 
centered  as  specified  using  the  current 
indicated  space. 


of  the  indicated  number  of  sides  and  radius 
line  option  to  draw  the  sides  in  the  currently 


CALLING  SEQUENCE: 


CALL  UPLYGN  (X,Y, SIDES, RADIUS) 

Where 


X 

Y 


is  the  X-  or  RADIUS  coordinate  of  the  center  of  the  circumscribed 
the  polygon  in  current  user  units. 


circle 


of 


is  the  Y-  or  THETA  coordinate  of  the  center  of  the  circumscribed 
the  polygon  in  current  user  units 


of 


SIDES  is  the  number  of  sides  in  the  polygon. 

RADIUS  is  the  radius  of  the  circumscribed  circle  of  the  polygon  in  current  user  units. 
OPTIONS  which  may  apply: 


Line  Options 

Upset  Option  ‘Orientation’ 


COMMENTS. 


The  polygon  will  be  drawn  centered  at  the  location  specified  by  the  input  variables  X  and 

IJLTh  Hk3  rad,'US  (i  e  dis,ance  from  the  center  ,o  any  point'  asTndictedSy  RADIUS 

ORIENTATION6  ?°  y9°!?  w,li  be  a  ,me  01  ,he  °Ption  currently  set  in  the  GSA.  The  default 
ORIENTATION  of  zero  degrees  will  result  in  the  polygon  having  one  side  Darallel  to  thp 

will'be  desolated  mStafCdfain9  0r!e",a,ion  in  current  an9dar  units,  the  entire  po  ygon 
win  be  displayed  rotated  appropriately  around  its  center. 


Programming  Notes: 


data  sides, Y0/ i . a,  4 . 7/ 

CALL  USTART 

CALL  UPSET  C' TERMINATOR', '>  '> 

CALL  UWXNDO  C-t . I, I . 1,-1 . I, I . t> 

DO  I  I  -  I.  2 
X0  -  -1  .5 
Y0  -  Y0  -  1 . « 

DO  I  J  ■  I,  4 

xa  -  xa  ♦  i.e 
SIDES  -  SIDES  ♦1.0 

CALL  UDAREA  <X0. CX0^l .S>, Y0. CYO^t .RSS 
CALL  UOUTLN 

CALL  UPLY8N  <0.0, 0.0. SIDES.  I .OS 
CALL  USET  C 'TEXT'S 
CALL  UPRINT  C-l .0,-1 .SB, 'SIDES • ,  'S 
CALL  USET  C' INTEGER' ? 

CALL  UPRINT  <3. 8,-1 .05, SIDES? 

I  CONTINUE 


9  DEGREES 


39  DEGREES 

UPLYQN  WrrVt  VARIOUS  LINE  OPTIONS  AND  SHOVING  ROTATION  OP  THE  FIGURE 


99  DEGREES  09  DEGREES 


CALL  USTART 

CALL  UPSET  €'TERHINAT0R'.','7 
CALL  USET  €' PERCENT  UNITS' 5 
CALL  USET  C 'DEVICE' 7 
CALL  UDAREA  C JO. , 49. , 60. . 190. 7 
CALL  UOUTLN 

CALL  UPLYGN  €26. ,76. ,3., 19.7 

CALL  UPRINT  CIS. ,66., '9  DEGREES *  '  7 

CALL  UDAREA  C69., 199. ,69., 199.7 

CALL  USET  C 'ARROW' 7 

CALL  UPSET  < 'ORIENTATION'. 39. 7 

CALL  UPLYGN  €76. . 7S. .3., 19. 7 

CALL  UPRINT  €96. ,69. .'39  DEGREES* ' 7 

CALL  UDAREA  C69., t99., IG.,49.7 

CALL  USET  C'TPOINT'7 

CALL  UPSET  € 'ORIENTATION', 69. 7 

CALL  UPLYGN  €76. .26. ,3., 19.7 

CALL  UPRINT  €66., 19., '69  DEGREES* '7 

CALL  UDAREA  €19. ,49., 19. ,49. 7 

CALL  USET  C'DDOUBLEARROW'7 

CALL  UPSET  < 'ORIENTATION', 09. 7 

CALL  UPLYGN  €26. ,26. ,3., 19.7 

CALL  UPRINT  €16., 19., '99  DEGREES* '7 

CALL  UPRINT  €5. ,69. , 'UPLYGN  WITH  VARIOUS  LINE  OPTIONS  AND 
A  SHOWING  ROTATION  OF  THE  FIGURE* '7 
CALL  UEND 
STOP 
END 
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Subroutine  UPOINT 

FUNCTION: 

This  routine  defines  the  point  which  will  be  used  along  with  the  two  end  points  of  the  line, 
to  define  the  plane  for  line  terminators  and  tic  marks. 

CALLING  SEQUENCE: 

CALL  UPOINT(X,Y,Z) 


Where 

X(Y(Z  are  the  coordinates  of  some  point  in  current  units. 

OPTIONS: 

Pen  Coordinate  Options:  see  U3PEN 

COMMENTS: 

The  ooint  specified  is  stored  for  later  use  when  drawing  vectors^  The  user  should  be 
caraful  to  define  a  point  which  will  not  be  colinear  with  any  line  being  drawn 

Programming  Notea: 


•V 


■Trap 


Subroutine  UPOST 


FUNCTION: 

This  routine  updates  the  display  surface  to  contain  only  the  defined  visible  retained 
segments/frames,  deleting  all  non-retained  information. 

CALLING  SEQUENCE: 


CALL  UPOST 


OPTIONS  which  may  apply: 

Security  Classfication  Mode:  UNSECURED’,  ‘UNCLASSIFIED’,  ’CONFIDENTIAL’ 

‘SECRET, ’TOPSECRET’ 

Segment  Visibility  Attribute:  (‘VISIBILITY',  ‘ON’),  (‘VISIBILITY’,  ‘OFF’) 

COMMENTS: 

All  non-retained  information  will  be  cleansed  from  the  display  surface.  This  includes 
remaining  segments  made  invisible  while  in  ’DELAYED’  segment  posting  mode  Non- 
retained  information  is  considered  to  be  all  information  generated  while  not  within  a 
retained’  segment  or  retained'  segments  where  visibility  attribute  has  been  set  to  ‘OFF’. 

Programming  Note*: 


Subroutine  UPRINT 
FUNCTION: 

This  subroutine  enables  the  user  to  print  information  at  the  position  specified.  The  five 
(5)  options  available  to  the  user  are:  ‘TEXT1,  'REALNUMBER',  ‘INTEGERNUMBER , 

X YCOORDINA TBS',  and  'XYZCOORDINATES'.  The  output  characters  will  be  either 
hardware  or  software  depending  on  the  current  setting  in  the  Graphics  Status  Area. 
Margining  will  occur  with  hardware  characters  and  windowing  will  occur  with  software 
characters.  The  beam  will  remain  positioned  at  the  next  character  position  following  the 
last  character  sent 

CALLING  SEQUENCE: 

CALL  UPRINT  (X.Y.DATA) 

Where 

X  is  the  X-  or  RADIUS  coordinate  of  the  lower  left  corner  of  the  first  character 

of  the  output. 

_ X _  is  the  Y-  or  THETA  coordinate  of  the  lower  left  corner  of  the  first  character 

of  the  output. 

DATA  is  a  single  variable  or  array  containing  either  real  numbers  or  a  GCS  text 

string.  The  size  of  data  is  variable;  it  is  a  single  variable  if  'REALNUMBER' 
or  'INTEGERNUMBER'  is  speeded;  it  is  a  two  word  array  if  'XYCOORDI- 
NATES'  is  specified;  it  is  a  three  word  array  if  ‘XYZCOORDINATES’  are 
specified;  and  it  may  be  any  length  if  'TEXT'  is  specified. 

OPTIONS  which  may  apply: 

All  U3PRNT  options 

Default  Z  value .  UPSET  CZVAL  UE'.VALUE) 

COMMENTS: 

All  text  functions  performed  by  GCS  are  performed  a  three  dimensional  space  For 
UPRINT,  the  third  dimension  is  defined  as  the  current  X-Y  plane,  which  is  at  Z  =  0,  by 
default. 

In  the  three  dimensional  version  of  GCS,  this  plane  can  be  changed  by  a  call  to  UPSET, 
i.e. 

CALL  UPSET  CZVALUE’, VALUE) 

If  the  two  dimensional  version  of  GCS  is  used,  then  the  XY  plane  corresponds  to  the 
screen  surface. 


Programming  Notes: 


Subroutine  UPRNT1 
FUNCTION: 


This  routine  displays  the  data  provided  at  the  current  beam  position  in  »he  format  cur- 
r!?!ly.8£tcJf,e<a  in  elther  hardwar®  or  software  characters  subject  to  the  one  time  setting 
of  the  USET  option  furnished,  which  only  applies  during  the  executing  of  this  subroutine. 
Upon  return,  the  beam  is  positioned  at  tne  next  character  position  following  the  last 
character  produced. 

CALLING  SEQUENCE: 


CALL  UPRNT1  (DATA, OPTION) 


Where 


DATA 


OPTION 


is  a  single  variable  or  array  containing  either  real  numbers  or  a  GCS  text 
string.  The  size  of  DATA  is  variable:  it  is  a  single  variable  if  'REALNUM- 
BER'  or  'INTEGERNUMBER'  is  specified;  it  is  a  two  word  array  if 
‘XYCOORDINATES’  is  specified;  it  is  a  three  word  array  if  'XYZCOORDI- 
NATES'  is  specified;  and  it  may  be  any  length  if  'TEXT'  is  specified. 

is  a  Hollerith-string  variable  or  literal  defining  the  USET  option  to  apply 
during  the  execution  of  this  subroutine. 


OPTIONS  which  may  apply: 

Same  as  those  for  UPRINT  except  that  Coordinate  System  Options  do  not  apply 

COMMENTS: 

iS  ecluivalen,  ,0  ,he  sequence  of  calling  USET  with  OPTIONS,  calling 
UPRINT  at  the  current  beam  position  with  DATA,  and  then  calling  USET  with  the 
appropriate  option  which  would  restore  the  status  cnanged  by  OPTION  UPRNT1  is  con¬ 
venient  for  producing  strings  of  output  which  contain  differing  data  types 

Programming  Notes: 


CHARACTER  OPTION" I 0C-O 

DATA  OPTION/ ' REALNUMBER ' . ' INTEGER  ' . 

A  'REAL-NUMBER',  'INTESER'/ 

CHARACTER  TITLE»e<2)/'  X  -  Y  -  > '/ 

PATA  X.Y/0..0-/ 
f!Ai  i  UST  ART 

CALL  UPSET  C 7 TERMINATOR', '  j  ') 

CALL  UCUTLN 

CALL  UWXNPO  <-l ..B.,-1 ..5.) 

CALL  UNOVE  C0..-.6) 

CALL  UPENI  C0..4.4. 'LARROV') 

CALL  UNOVE  <-.5.0.5 

CALL  UPENI  <4.4.0..  'LARROW') 

CALL.  UPENI  <X.Y,  'NO') 

DO  I  I  -  I,  4 
DO  2  0  -  I,  5 
X  -  X  ♦  .10 
Y  -  X«h»2 
CALL  UPEN  <X.Y) 

2  CONTINUE 

CALL  UPENI  CX.Y, 'NO') 

CALL  UPRNTl  <TTTLE< I ), 'TEXT') 

CALL  UPRNTl  <X. OPTIONCI)) 

CALL  UPRNTl  CTXTLEC2), 'TEXT') 

CALL  UPRNTl  <Y.OPTION<I)) 

CALL  UNOVE  CX.Y) 

I  CONTINUE 
CALL  UEND 
STOP 
END 
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Subroutine  UPSET 
FUNCTION: 

This  routine  allows  the  user  to  set  parameter  options  in  the  Graphics  Status  Area  (GSA). 
Options  will  remain  set  to  the  value  specified  until  changed  by  a  subsequent  UPSET  or 
USET  call  or  until  the  GSA  is  restored  during  an  UNSAVE  or  UNSVPN  call. 

CALLING  SEQUENCE: 


CALL  UPSET  (OPTION, VALUE) 

Where 

OPTION  is  the  mnemonic  option  name  which  uniquely  identifies  the  option  to  be  set 
or  is  the  first  four  characters  of  such  an  option  name. 

VALUE  is  the  parameter  value  to  be  assigned  to  the  option  being  set.  This  is  always 
either  a  REAL  number  or  a  character  string. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

Some  UPSET  options  supplement  settings  available  using  USET  options.  These  are 
included  here  to  allow  a  means  of  expansion  beyond  the  discrete  USET  options.  For 
example,  the  COLOR'  UPSET  option  can  be  used  to  set  colors  not  available  under  USET. 

The  UPSET  options  flagged  by  the  notation  '3D'  indicate  that  these  are  present  only  in 
the  three  dimensional  version  of  GCS.  and  not  in  the  two  dimensional  version. 

Programming  Notes: 
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UPSET  OPTIONS 


Option  Name 

ANGLE  OF  TEXT' 

■ASPECT  RATIO' 
ATTITUDE' 

BASE  OF  LOGARITHMS' 

BRIGHTNESS’ 

CHARACTER’ 

’COLOR’ 

COPY  DELAY’ 

’DISTANCE’ 

’FNTFILE’ 

'FONT  NAME' 

GREYSCALE' 

GRID  SPECIFICATION' 


Value 

Is  an  angular  value  which  specifies  the  angle  of  the  text 
string  in  relation  to  the  current  X  axis.  Default  value  is 
0. 

Specify  aspect  ratio  of  display  surface 

Is  an  angular  value  which  specifies  the  orientation  of 
the  up  direction  axis  with  the  sides  of  the  window. 
Default  value  is  0  meaning  that  the  up  direction  is 
parallel  with  the  left  and  right  window  boundaries  and 
pointing  towards  the  top  of  the  window 

Is  a  positive  value  which  specifies  the  base  of  the 
logarithms  used  to  perform  logarithmic  scaling.  Default 
base  is  10.  This  option  sets  the  specified  base  along 
each  coordinate  component.  THe  base  of  Naperian 
logarithm  is  specified  by  the  character  string  IHE 

Is  a  value  between  0  and  100.  percent  indicating  the 
position  in  the  range  of  possible  line  intensity  settings 
from  dimmest  to  brightest.  Default  brightness  is  60%. 

Is  a  Hollerith  character  which  becomes  the  current 
system  character.  The  default  system  character  is  '*’. 

Is  an  integer  which  specifies  the  color  index  within  the 
color  table.  Values  0-7  are  predefined  to  represent 
black,  white,  red,  green,  yellow,  blue,  magenta,  and 
cyan,  respectively.  Default  color  is  device-dependent. 

Is  a  value  which  indicates  the  number  of  seconds  of 
delay  required  during  generation  of  a  hard  copy. 
Default  value  is  device-dependent  and  is  preset  to  the 
value  required  by  the  selected  device 

Is  a  value  measured  from  the  current  view  plane  dis¬ 
tance  base  specifying  the  position  of  the  view  (projec¬ 
tion)  plane.  The  default  is  0.  measured  from  the  view 
site. 

Is  a  Fortran  file  number  representing  the  file  containing 
the  font  descriptors.  Default  is  zero  indicating  no  font 
file  has  been  specified. 

Is  a  Hollerith  string  indicating  the  desired  character 
font.  Default  is  SGCS'  which  is  the  most  efficient  font. 

Is  a  value  indicating  a  particular  grey  level  for  terminals 
which  support  multiple  grey  scales  rather  than  colors. 

Is  a  value  containing  a  dash  specification  to  be  used 
when  generating  grid  axes.  Default  is  0.  which  indi¬ 
cates  a  solid  line  should  be  used. 


135 


'HORIZONTAL  SIZE’ 

‘INPUT  FILE’ 

‘LABELbROTATION’ 

■LIBRARY  FILE’ 

■LOWER' 

'MARKER  INDEX’ 

■ORIENTATION’ 

'OUTPUT  FILE’ 

‘POLYNOMIAL  DEGREE’ 

■PRECISION’ 

■ROTATION’ 

■SCALEFACTOR’ 

■SCRIPTLEVEL’ 

■SETDASH’ 

SIZE’ 


Indicates  the  width  of  a  software  character  position  in 
current  user  units.  Default  is  5  virtual  units. 

Is  a  Fortran  file  number  indicating  which  file  will  be 
used  to  obtain  graphics  input.  The  default  is  set  to  the 
appropriate  computer-system  dependent  file. 

Is  the  number  of  angular  units  the  axes  labels  are  to  be 
rotated  around  the  axes 

Is  a  Fortran  file  number  indicating  which  file  should  be 
used  by  the  GCS  structure  and  segmentation  facilities 
as  a  random  work  file.  Default  is  0.  indicating  no  file  has 
been  provided. 

Is  a  Hollerith  character  which  will  be  used  by  GCS  as 
the  indication  to  shift  to  lower  case.  Default  character 
is  the  greater  than  sign  on  the  keyboard. 

Is  a  value  selecting  a  marker/symbol.  Default  marker 
symbol  is  0.  indicating  a  point. 

Is  an  angular  value  indicating  the  display  orientation  of 
GCS  created  software  symbols  and  figures  such  as 
software  characters,  polygons,  and  rectangles.  Default 
orientation  is  0. 

Is  a  Fortran  file  number  indicating  which  file  will  be 
used  for  sending  graphics  output  to  the  display  device 
The  default  is  set  to  the  appropriate  computer  system 
dependent  file.  This  is  a  file  to  which  the  pseudo  dis¬ 
play  file  is  written. 

Specifies  the  degree  of  the  polynomial  to  be  created  in 
calculating  a  least  squares  fit  through  a  collection  of 
points.  Default  value  is  5. 

Specifies  the  number  of  significant  digits  to  appear 
when  displaying  real  numbers.  Default  value  is  4. 

Same  as  ‘ORIENTATION’. 

Specifies  a  scale  to  be  applied  to  GCS-created 
geometric  figures  such  as  polygons  and  rectangles. 

Is  a  value  indicating  the  scripting  level  to  be  set  for  tex¬ 
tual  output.  Default  value  is  1. 

Specifies  the  characteristics  of  the  dashed  lines  to  be 
plotted  by  UPEN.  Default  value  is  56. 

Is  a  positive  whole  number  which  sets  hardware 
character  sizes.  Values  of  1.  through  4.  correspond  to 
USET  options  SMALL’,  MEDIUM’,  ’LARGE’,  and 
‘EXTRA  LARGE',  respectively  Default  value  is  1.  for 
’SMALL’  characters 


'SLANTANGLE'  Is  an  angular  value  indicating  the  amount  of  slant  from 

the  vertical  for  italicized  software  characters.  Default 
value  is  approximately  18  degrees 

SPAN  ANGLE'  Is  an  angular  value  indicating  the  portion  of  a  circle  to 

be  occupied  by  the  pie  chart  Default  value  is  360. 
degrees 

'SPECIFICATION  UNITS'  Is  a  positive  value  indicating  the  number  of  specifica¬ 

tion  units  contained  in  device  space  for  all  directions. 
Default  value  is  1 000. 

'SPEED'  Specifies  the  speed  of  the  communication  line  in 

characters  per  second.  Default  value  is  system  depen¬ 
dent. 

START  ANGLE’  Is  an  angular  value  indicating  the  starting  position  of 

the  first  wedge  of  the  pie  chart.  Default  value  is  0. 

'STRUCTURE  TABLF  SIZE'  Is  a  whole  number  indicating  the  number  of  words  in  the 

user  provided  structure  table.  Default  value  is  100 

'SUBSCRIPT  CHARACTER'  Is  a  Hollerith  character  which  will  be  used  to  decrease 

the  scripting  level  by  1  Default  subscript  character  is 
the  underline  (0/8/6) 

'SUPERSCRIPT  CHARACTER'  Is  a  Hollerith  character  which  will  be  used  to  increase 

the  scrpting  level  by  1  Default  superscript  character 
is  the  up  arrow  (0/8/5). 

SZMARKER'  Is  a  value  in  current  device  units  which  specifies  the 

size  of  software  generated  markers  Default  value  is 
device-dependent. 

'TABHORIZONTAL'  Is  an  array  of  10  elements  containing  10  tab  positions 

in  current  device  units.  Default  value  has  all  tab  stops 
set  to  zero. 

'TABVERTICAL'  Is  an  array  of  10  elements  containing  10  vertical  tab 

positions  in  current  device  units.  Default  value  has  all 
tab  stops  set  to  zero. 

'TERMINATOR'  Is  a  Hollerith  character  which  will  be  used  as  the  GCS 

string  terminator  character.  Default  value  is  the  back¬ 
slash 

'TICINTERVAL' 

TICLENGTH’  Specifies  the  distance  in  current  user  units  between  tic 

marks  of  a  UPEN  created  tic  line  Default  value  is  10. 

'TICMINUS'  Specifies  in  current  units  the  size  of  that  portion  of  a  tic 

mark  which  lies  on  the  clockwise  side  of  the  tic  line. 
Default  value  is  0.5  inches 


'TICPLUS' 


Specifies  in  current  units  the  size  of  that  portion  of  a  tic 
mark  which  lies  on  the  clockwise  side  of  the  tic  line. 
Default  value  is  0.5  inches. 


TICX' 

‘TICV 

'TICZ' 

'UPPER' 

VERTICAL  SIZE' 

‘WIDTH’ 

WRITE  FILE' 

XBASE  OF  LOGS' 

•XLABEL’ 

'XPERCENT' 

'XROTATION' 

'XSCALE' 

XSIZE' 

'XSPECIFICATION  UNITS' 

'YBASE  OF  LOGS' 

‘YBASE  OF  LOGS' 

■YLABEL' 


Specifies  the  distance  between  tic  marks  or  grid  lines 
along  X  axes.  Default  value  is  0.  indicating  that  a  ‘nice’ 
number  should  be  chosen. 

Is  the  same  as  TICX’  for  Y  axes. 

Is  the  same  as  'TICX'  for  Z  axes 

Is  a  Hollerith  character  which  will  be  used  by  GCS  as 
the  indication  to  shift  to  upper  case.  Default  character 
is  the  less  than  symbol  on  the  keyboard. 

Indicate  the  height  of  a  software  character  position  in 
current  user  units.  Default  value  is  seven  virtual  units. 

Is  a  value  in  current  units  of  the  width  of  a  line.  Default 
value  is  0.  indicating  a  thin  line. 

Is  a  Fortran  file  number  indicating  which  file  will  be 
used  to  generate  non-graphic  output.  The  default  is  set 
to  the  appropriate  computer  system  dependent  file. 

Is  a  positive  value  or  the  character  string  IHE  which 
specifies  the  base  for  logarithmic  scaling  along  the  x- 
component.  Default  value  is  10. 

Specifies  the  alphanumeric  label  to  be  displayed  along 
X  axis.  Default  value  is  'X'. 

Is  a  value  specifying  the  portion  of  the  width  of  a  soft¬ 
ware  character  position  to  be  occupies  by  a  character. 
Default  value  is  .65  indicating  65%  of  the  width. 

Is  an  angular  value  indicating  the  amount  of  rotation 
around  the  X  axis  for  UINVOK  structure  invocations 
Default  value  is  0. 

Is  the  scale  factor  to  be  supplied  along  the  X  axis  for 
UINVOK  structure  invocations.  Default  value  is  1. 

Is  the  size  of  hardware  or  simulated  hardware  character 
positions  in  current  device  units.  Default  value  is 
device-dependent  and  corresponds  to  SMALL'  hard¬ 
ware  character  size. 

Is  a  positive  value  indicating  the  number  of  x-specifica- 
tion  units  in  device  space.  Default  value  is  1000. 

Is  a  positive  value  or  the  character  string  IHE  which 
specifies  the  base  for  logarithmic  scaling  along  the  y- 
component.  Default  value  is  10 

Is  a  postivie  value  which  specifies  the  base  for 
logarithmic  scaling  along  the  Y  component.  Default 
value  is  1 0 

Specifies  the  alphanumeric  label  to  be  displayed  along 
the  Y  axis.  Default  value  is  Y' 
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!  i  in  a  .1 


YPERCENT’ 

YROTATION’ 

‘YSCALE’ 

‘YSIZE’ 

YSPECIFICATION  UNITS’ 

ZBASE  OF  LOGS’ 

’ZLABEL’ 

ZROTATION’ 

’ZSCALE’ 


Is  a  value  specifying  the  portion  of  the  height  of  a  soft¬ 
ware  character  position  to  be  occupies  by  a  character. 
Default  value  is  .65  indicating  65%  of  the  height. 

Is  an  angular  value  indicating  the  amount  of  rotation 
around  the  Y  axis  for  UINVOK  structure  invocations. 
Default  value  is  0. 

Is  the  scale  factor  to  be  applied  along  the  Y  axis  for 
UINVOK  structure  invocations.  Default  value  is  1. 

Is  the  size  of  hardware  or  simulated  hardware  character 
positions  in  current  device  units.  Default  value  is 
device-dependent  and  corresponds  to  ’SMALL’  hard¬ 
ware  character  size. 

Is  a  positive  value  indicating  the  number  of  Y  specifica¬ 
tion  units  in  device  space.  Default  value  is  1000. 

Is  a  positive  value  or  the  character  string  IHE  which 
specifies  the  base  for  logarithmic  scaling  along  the  z- 
component.  Default  value  is  10. 

Specifies  the  alphanumeric  label  to  be  displayed  along 
the  Z  axis.  Default  value  is  ‘Z’. 

Is  an  angular  value  indicating  the  amount  of  rotation 
aroung  the  Z  axis  for  UINVOK  structure  invocations. 
Default  value  is  0. 

Is  the  scale  factor  to  be  applied  along  the  Z  axis  for  UIN¬ 
VOK  structure  invocations.  Default  value  is  1. 


“means  not  implemented 
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Subroutine  UQUERY 
FUNCTION: 

This  routine  obtains  the  current  setting  of  USET  or  UPSET  options  and  returns  them  to 
the  user. 

CALLING  SEQUENCE: 

CALL  UOU£RY(OPTION, VALUE) 

Where 

OPTION  it  a  character  string  indicating  the  USET  or  UPSET  option  value  desired. 
Valid  options  are  listed  below. 

.  »  <*5i 

VALUE  is  either  an  integer  array  dimensioned  to  (at  least)  10,  an  integer  scalar,  or  a 

real  scalar,  depending  on  the  option  queried. 

OPTIONS  which  may  apply: 

•n  i  j  i 

All  USET  and  UPSET  options 

COMMENTS: 

VALUE  is  always  a  scalar  except  for  axis  titles  in  which  case  it  is  an  array  ten  elements  in 
length.  VALUE  is  a  HOLLERITH  string  for  all  USET  UQUERY  options.  For  UPS'ET  options 
with  numeric  settings,  the  value  returned  is  converted  to  the  current  corresponding  user 
units. 

Those  options  flagged  by  the  notation  '3D'  are  available  only  in  the  three  dimensional 
version  of  GCS,  and  not  in  the  two  dimensional  version. 


Programming  Notes: 


UOUERY  OPTIONS 


Type 

Query  Name 

USET 

ABUTTING 

USET 

ACENTERING 

USET 

ADJUSTMENT 

3D 

USET 

ANGULARUNITS' 

USET 

ANGLE  OF  TEXT 

UPSET 

ASPECTRATIO 

3D 

UPSET 

ATTENTION  QUEUE  SIZE' 

UPSET 

BACKGROUND  COLOR 

USET 

BLENDMODE '* 

USET 

BLINKRATE' 

UPSET 

BRIGHTNESS 

USET 

BUILD' 

3D 

UPSET 

CHARACTER- 

USET 

CLIPPING 

USET 

COLOR 

UPSET 

COPY  DELAY' 

UPSET 

CSPACING 

USET 

CURVE 

UPSET 

DASH 

USET 

DESCRIPTION 

.USET 

DETECTABILITY' 

USET 

DIMENSION 

3D 

UPSET 

DISTANCE- 

3D 

USET 

EDIT' 

3D 

USET 

'ERRORMODE 

USET 

EXECUTE 

3D 

USET 

EXISTENCE 

UPSET 

FACTOR 

USET 

'FITMODE' 

USET 

FNAMING  MODE' 

UPSET 

FNTFILE  NUMBER'* 

Returns  (Default  in  Parentheses) 

Page  abutting  mode  (  NONABUTTING') 

Alphanumeric  centering  CNOCENTERING) 

Axis  view  adiustment  option  (plane  axis  Plotted  on 
view  port  or  viewed  from  current  view  point) 
CXYZVIEW) 

Current  user  anqular  jnits  (  DEGREES') 

Current  angle  of  text  output  (0  ) 

Display  Surface  aspect  ratio 

Attention  queue  size  (100) 

Background  color  index  (Black»0  ) 

Color  Blending  mode  (  SUBTRACTIVE  ) 

Blink  rate  (  NOBLINK  ) 

Display  intensity  (60°o) 

Structure  build  mode  (lag  (  NOBUILD  ) 

Current  system  character  as  Hollerith  string  (*) 

Device  space  clipping  flag  CNOCLIP'.  CLIP'  or 
INVERTED) 

Current  color  index  (device  dependent) 

Copy  delay  time  (device  dependent) 

Character  spacing  mode  (  HORIZONTAL ) 

Current  curve  approximation  mode  (  CONTINUOUS  ) 

Numeric  value  corresponding  to  current  dashline 
specification  (56 ) 

Current  axis  option  (  TICAXES ) 

Detectability  of  new  segments  (  DESENSITIZED  ) 

2D  or  3D  coordinate  terminator  switch 
C2DCOORDINATES) 

Distance  from  viewport  to  screen  plane  ( 1  50.) 

Data  structure  edit  mode  (  COMPRESS  or  EXPAND  ) 
Error  presentation  (ERROR) 

Structure  building  visability  ('EXECUTE') 

Current  axis  existence  option  (XYZAXES ) 

Scale  factor  for  GCS  created  software  symbols  (1 .) 
Curve  fitting  mode  for  autoplotting  (  NOFITTING') 
Frame  naming  mode  CFNAME) 

Font  file  number  (0  ) 
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UPSET 

FONT  NAME  ‘ 

USET 

FORMAT 

USET 

GAPMODE 

UPSET 

GREYSCALE 

UPSET 

GRID 

3D 

USET 

HANDEDNESS 

3D 

UPSET 

HARDWARE 

UPSET 

HORIZONTAL 

UPSET 

INFILE 

USET 

INPUT 

USET 

ITALICIZATION 

UPSET 

LABtLANGLE 

USET 

LETTERTYPE 

UPSET 

LEVEL' 

3D 

UPSET 

LIBRARY' 

30 

UPSET 

'LIMIT' 

3D 

USET 

LINEOPTION 

UPSET 

LOWERCASE 

USET 

LOGARITHMIC 

3D 

USET 

'LOGTIME  OF  APPLICATION' 

USET 

LOGTYPE 

3D 

USET 

MAPPINGTYPE 

3D 

USET 

menutype 

30 

USET 

MERGE 

3D 

USET 

MESSAGEDEVICE' 

USET 

MODE 

USET 

NUMERIC 

3D 

USET 

ORDER' 

3D 

UPSET 

ORIENTATION 

Font  name  (  GCS  I 

Tent  number  tormat  lor  numeric  labelling 
<  BESTFORMAT  I 

Gapped  line  mode  l  UINTERRUPTED  ) 

Numeric  valve  indicating  current  grey  level  (device 
dependentl 

Numeric  value  indicating  grid  axis  type  option  (0  I 

Left  or .  ight  banded  coordinate  system 
I'RIGHTHANDED I 

Current  hardware  character  size  (  SMALL  .  device 
dependent) 

Current  horizontal  software  character  position  size 
(5) 

Graphics  input  tile  designation  (computer  system 
dependentl 

Graphics  input  device  medium 

Italicization  mode  (  NOITALICS') 

Label  angle  around  perpendicular  10 ) 

Character  type  (  HARDWARE  I 

Subscript/superscript  spacing  level  (1  I 

Data  structure  library  tile  mode  (0.) 

Number  ot  errors  before  automatic  stop  0  means  no 
limit  (0  I 

Current  line  option  setting  CLNULL'I 

Lowercase  shift  character  as  Hollerith  string  CF  ) 

Axes  selected  tor  logarithmic  transform  (logarithmic 
transform  switchl  (  NOLOGSCALING  I 

Time  ol  application  ot  logarithmic  scaling 
( LOGS YSTEM  COORDINATES'! 

Flag  indicating  when  logarithmic  scaling  performed. 
CLOGSYSTEM  .  LOGUSER  LOGOBJECT't 

3D  to  2D  mapping  type  (  PERSPECTIVE  ) 

Menu  board  type  (  STANDARD  I 

Structure  merge  mode  switch  (  IGNORE  ) 

Destination  ot  alphanumeric  I/O  (PLOTDEVICE) 

Current  coordinate  mode  (  ABSOLUTE  ) 

Numeric  labels  parallel  or  perpendicular  to  axis 
(PARALLEL! 

3D  coordinate  system  rotation  application  order 
(  ZYX) 

Angular  orientation  ol  display  of  GCS  created 
symbols  (0  I 


USET 

ORIGIN' 

UPSET 

OUTFILE 

USET 

OUTPUTDEVICE 

USET 

PLANE 

3D 

USET 

PLOTSCALE 

UPSET 

POLYNOMIALDEGREE 

USET 

POSITION- 

3D 

UPSET 

PRECISION 

USET 

PROJECTION  TYPE 

UPSET 

READ  FILE 

USET 

REPEAT 

3D 

USET 

REWIND 

3D 

USET 

SCALE' 

USET 

script- 

3D 

USET 

security  LEVEL 

USET 

SENSITIVITY' 

3D 

USET 

SIDE 

3D 

USFT 

SIZE 

UPSET 

SLANT- 

3D 

USET 

SPACE' 

UPSET 

SPAN 

3D 

UPSET 

START- 

3D 

USET 

STOP 

USET 

'STORAGEMODE 

UPSET 

STRUCTURE  LIMIT 

UPSET 

SU8SCRIPTCHARACTER 

3D 

UPSET 

SUPERSCRIPTCHARACTER 

3D 

UPSET 

SYMBOL  INDEX- 

USET 

SYSTEM 

UPSET 

TABHORIZONTAL' 

UPSET 

TABVERTICAL' 

UPSET 

TERMINATOR 

USET 

TEXT' 

Forced  origin  switch  for  axis  scal'ng  (  ORIGIN  ) 

File  number  ol  graphics  output  tile  (computer  system 
dependent) 

Graphical  output  destination  device  I' ALLDEVICES') 
Axis  label  plane  I’XYPLANE  ) 

Scale  option  l  NEWSCALE  ) 

Current  degree  ot  polynominal  tit  tor  curve  fitting  (5  ) 

Current  axes  positioning  I'EDGcAXES ) 

Number  ot  digits  ot  precision  to  be  displayed  for  real 
numbers  (4  ) 

Type  of  projection  (  PERSEPCTIVE  ) 

File  designator  tor  non-graphic  input  (computer 
system  dependent) 

Data  structure  invocation  option  (  SINGLE  or 
REPEAT) 

Structure  file  rewind  mode  (  REWIND  ) 

Axis  scale  option  (  AUTOSCALE) 

Subscript/superscript  control  CNOSCRIPT  ) 

Control  of  security  banners  (  UNSECURED  ) 

Light  pen  sensitivity  switch  (  DESENSITIZE  ) 

Side  ot  axes  on  which  labels  will  appear  (  NEGATIVE  ) 

Hardware  character  size  (  SMALL  ) 

Software  character  italic  slant  angle  (1 8  degrees) 

Coordinate  space  (  VIRTUAL ) 

Angular  span  (or  pie  charts  (360  degrees' 

Pie  chart  starting  angle  (0.) 

Error  stopping  control  CNOABORT ' 

Sh-gment/Frame  retention  mode  (  RETAINED  ) 

Maximum  number  ot  structures  which  can  be  defined 
(100.) 

Current  subscript  shift  character  (  ) 

Current  superscript  shift  character  (  I 
Choice  of  marker  (0  > 

Current  coordinate  sys'em  (  SYSTEM  ) 

Location  of  current  horizontal  tab  stop  (10.) 

Location  of  current  vertical  tab  stop  (10) 

GCS  string  termination  character 
Textual  I/O  mode  (  TEXT1) 


M3 


UPSET 


TICINTERVAL 


UPSET 

ticlength 

UPSET 

TICMINUS 

UPSET 

TICPLUS 

UPSET 

TICX 

UPSET 

TICY' 

UPSET 

TICZ 

3D 

USET 

TIME 

USET 

TYPE 

USET 

UNIFORM 

3D 

USET 

UNITS' 

USET 

UPAXIS' 

3D 

UPSET 

UPPERCASE 

USET 

USER 

UPSET 

VERTICAL 

3D 

USET 

VIEWPORT 

USET 

VISIBILITY 

UPSET 

WIDTH  OF  LINES 

3D 

USET 

WINDOW- 

UPSET 

WRITE  FILE 

UPSET 

XBASE 

USET 

XLABEL 

USET 

XLOGARITHMIC 

UPSET 

XPERCENTAGE  OF  CHARACTER 
SPACE 

USET 

XREPETITION  MODE 

UPSET 

XROTATION 

UPSET 

XSCALING 

UPSET 

XSPECIFICATION  UNIT' 

USET 

XSIZE 

UPSET 

XTITLE 

UPSET 

YBASE' 

3D 

Length  o (  UPEN  ticmtervals  U  0  I 

Length  ot  UPEN  ticmtervals  ( 1 0  > 

Clockwise  tic  mark  size  (0.05) 

Counter-clockwise  tick  mark  size  (0  051 

X  axis  tic  interval  <0  ) 

V  axis  tic  interval  10.) 

Z  axis  tic  interval  (0  ) 

T ime  series  plotting  period  (  DATES  I 

T ype  of  coordinates  I'RF.CT  ANGULAR) 

High  level  plotting  option  CNONUNIFORM) 

Device  space  units  CINCHES') 

Coordinate  system  viewport  vertical  axis 
(  ZPOSIT.VE  I 

Uppercase  shift  character  as  Hollirith  string  CAT 

User  coordinate  system  switch  (7  ) 

Vertical  software  character  position  switch 

Viewport  distance  base  switch  CSITET 

Framed/segment  creation  visibility  mode  (  VISIBLE  ) 

Width  of  lines  (0  ) 

Window  tvpe  (  NOWINDOWT 

Non-graphic  alphanumeric  output  f;'e  (Computer 
system  dependent) 

Base  ot  log  scaling  along  x-component  (real  number 
or  string  E  )  ( 1 0.) 

X  axis  labelling  option  CXNUMERlCLABEl  ) 

X  axis  linearity  option 

Portion  of  horizontal  character  space  occupied  by 
character  (0  65) 

X  component  repetition  mode  for  plotting 
CNOXREPEATI 

Rotation  factor  around  X  axis  for  structure  invocation 
(0) 

Scaling  factor  along  X  axis  for  structure  invocation 
(V) 

Number  of  XSPECIFICATION  unts  in  device  space 
(1000.) 

Horizontal  hardware  character  position  size  (device 
dependent) 

X  axis  alphanumeric  label  (  XT 

Base  of  log  scaling  along  Y-component  (rdal  number 
or  string  E'l  (10) 
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USET  »" 

'YLABEL' 

Y  axis  labelling  option  CYNUMERICLABELS) 

USET 

YLOGARITHMIC' 

Y  axis  linearity  option 

UPSET 

YPERCENTAGE  OF  CHARACTER 
SPACE' 

Portion  ot  vertical  character  space  occupied  by 
character  (0  65) 

USET 

YREPETITION' 

Y  component  repetition  made  for  plotting 
(NOYREPEAT) 

UPSET 

YROTATION' 

Rotation  factor  around  Y  axis  for  structure  invocation 
(0) 

UPSET 

YSCALING 

Scaling  factor  along  Y  axis  for  structure  invocation 
(1  ) 

UPSET 

YSIZE' 

Vertical  size  for  hardware  characters  (device 
dependent) 

UPSET 

YSPECIFICATIONUNITS' 

Number  of  Y  specification  units  in  device  space 
(1000.) 

UPSET 

C 

YTITLE 

Y  axis  alphanumeric  label 

UPSET 

ZBASE  3D 

Base  of  log  scaling  along  Z  axis  ( 1 0 ) 

USET 

ZCLIP' 

Hither/yon  clipping  mode  (  NOZCLIPPING') 

USET 

ZLABEL'  3D 

Z  axis  label  option  (  ZNUMERICLABELS  ) 

USET 

ZREPETITION  MODE 

Z  component  repetition  mode  lor  plotting 
CNOZREPEAT ) 

UPSET 

ZROTATION 

Rotation  factor  around  Z  axis  lor  structure  invocation 
(0.) 

UPSET 

ZSCALING 

Scaling  (actor  along  Z  axis  for  structure  invocation 

(1.) 

UPSET 

ZSPECIFICATIONUNITS 

Number  ot  Z  specification  units  in  device  space 
(1000.) 

UPSET 

ZTITLE  3D 

Z  axis  title 

UPSET 

ZVALUE  3D 

Numer'c  default  Z-value  foi  2D  coordinates  (0  ) 

Subroutine  URAXIS 
FUNCTION: 

This  routine  draws  a  scaled  and  labeled  set  of  axis.  The  position  of  the  beam/pen  when 
URAXIS  is  called  will  be  the  intersection  point  of  the  two  axes  or  their  extensions.  The 
axis  will  be  drawn  from  the  minimum  to  maximum  values  furnished  be  the  user. 

CALLING  SEQUENCE: 

CALL  URAXIS  (XMIN,XMAX,YMIN,YMAX) 


Where 

XMIN  is  the  minimum  value  to  be  displayed  for  the  X  axis  in  current  user  units.  It 

also  indicates  the  minimum  RADIUS  component  component  if  polar 
coordinates  are  being  used. 

XMAX  is  the  maximum  value  to  be  displayed  for  the  X  axis  :n  current  user  units.  It 
also  indicates  the  maximum  RADIUS  component  if  polar  coordinates  are 
being  used. 

YMIN  is  the  minimum  value  to  be  displayed  for  the  Y  axis  in  current  user  units.  It 

also  indicates  the  minimum  THETA  component  if  polar  coordinates  are 
being  used. 

YMAX  is  .he  maximum  value  to  be  displayed  for  the  Y  axis  in  current  user  units.  It 
also  indicates' the  maximum  THETA  component  if  polar  coordinates  are 
being  used. 

OPTIONS  which  may  apply: 

Coordinate  System  Options:  ‘RECTANGULAR  .  POLAR’,  or  LOGARITHMIC’,  or 

‘LOGARITHMIC’ 

Coordinate  Type  Options  ‘ABSOLUTE^  or  ‘RELATIVE’ 

Axis  Existence  Options.  XYAXES’.  ‘XAXIS’,  ‘YAXIS’,  or  ‘NOAXES' 

Axis  Drawing  Options  TICAXES',  ‘GRIDAXES’.  or  'PL  AINAXES' 

X  Axis  Type  Options  (Rectangluar):  'LINXAXI3',  'LOGXAXIS’.or  ‘LNXAXIS’ 

Y  Axis  Type  Options  (Rectangular):  LINYAXIS'.  LCGYAXIS',  or  ‘LN't'AXIS’ 

X  Axis  Labeling  Options:  XNUMERICLABEl  ,  XALPHANUMERICLABEL’ 

‘XBOTHLABElL  ‘NOXLABEL’ 

Y  Axis  Labeling  Options  ‘YNU  MERIC  LABEL’.  ‘YALPHANUMERICLABEL’ 

‘YBOTHLABEL’.  or  NOYLABEL’ 

Numeric  Scaling  Format  Options  BESTFORMAT’.  IFORMAT’.  or  ’GFORMAT’ 


PARAMETERS  which  may  be  set. 

TICX’  —  The  interval  between  tic  marks  or  grid  lines  on  the  X  axis  in  current 

user  units  (Rectangular,  LinealT 

The  interval  between  radial  tic  marKs  or  grid  lines  in  current  user  units 
(Polar). 
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TICY 


—  The  interval  between  tic  marks  or  grid  linos  on  the  Y  axis  in  current 
user  units  (Rectangular.  Linear) 

The  interval  between  axial  grid  lines  in  current  user  units  (Polar) 
XLABEL'  —  The  X  axis  alphahbetic  iabel 

YLABEL'  -  Tho  Y  axis  alphabetic  label 

PRECISION'  —  Tho  number  ot  digits  ot  precision  tor  the  numeric  labels 

COMMENTS: 

The  default  options  tor  URAXIS  are  tho  first  options  listed  in  each  option  typo  Unless 
specified  by  the  user,  the  tic  or  grid  intervals  will  be  determined  automatically  by 
URAXIS  The  default  for  PRECISION  is  four  digirs  of  precision 

This  routine  operates  entirely  In  tho  current  user  coordinate  system  using  the  user's 
units  The  vertical  position  ot  tire  X  axis  will  be  determined  by  the  vertical  position  ot  the 
beam/pen  when  URAXIS  is  called  Similarly,  the  horizontal  position  of  the  Y  axis  will  be 
determined  by  the  horizontal  position  ot  the  beam  pen  Normally,  tho  numeric  and 
alphabetic  labels  will  be  below  the  X  axis  and  to  the  left  of  the  Y  axis  The  X  axis  labels 
will  move  above  the  X  axis  if  the  beam  pen  is  positioned  at  or  above  YMAX.  and  the  Y 
axis  labels  will  move  to  the  right  of  the  Y  axis  if  the  boam/pen  is  positioned  at  or  to  tho 
right  ot  XMAX  The  user  is  cautioned  not  to  position  the  beam  pen  on  the  boundary  ot 
the  virtual  window,  but  to  leave  sufficient  room  tor  the  labels  by  positioning  tho  beam 
pen  well  inside  tho  range  of  the  URAXIS  arguments  or  by  making  the  virtual  window 
boundaries  largo  enough  so  that  room  will  exist  outside  the  range  ot  the  URAXIS 
arguments 

If  POLAR  is  specified,  a  check  will  be  made  on  tho  arguments  to  see  it  a  lust  quadrant  or 
a  lull  tour  quadrant  set  ot  axes  is  needed  The  user  should  keep  this  in  mind  and  make 
sure  there  Is  sufficient  room  for  a  tour  quadrant  sot  ot  axes  it  needed  It  the  user  is  in  .in 
ABSOLUTE  coordinate  system,  the  axes  will  be  centered  at  (0.0)  regardless  ot  tho 
beam/pen  position  If  tho  user  is  in  a  RELATIVE  coordinate  system,  the  axes  will  be 
centered  on  tho  beam  pen  position  The  labels  will  be  to  the  extreme  loft  and  bottom  ot 
the  axes  in  both  tho  one  quadrant  and  four  quadrant  case 

Programming  Notes: 

1  This  obsolete  subroutine  lias  been  replaced  by  USAXIS  T lie  subroutine  description 
is  being  included  in  order  to  aid  in  the  upgiading  ol  a  program  already  wntten  which 
used  an  earlier  version  of  GCS 


Subroutine  UREAD 


Interactive 


FUNCTION: 

This  routine  enables  the  user  to  read  character  data  entered  from  the  alphanumeric 
keyboard  of  the  terminal.  The  data  will  be  formatted  and  returned  to  the  user  according 
to  one  of  five  options.  The  options  are:  'TEXT',  REALNUMBER',  INTEGER', 
'XYCOORDINATES',  or  XYZCOORDINATES'  (3D  only/. 

CALLING  SEQUENCE: 

CALL  UREAD  (X,Y,DATA,COUNT,FLAG) 

Where 

X  is  the  X  or  RADIUS  coordinate  of  the  lower  left  corner  of  the  point  at  which 

the  input  will  begin,  if  possible. 

Y  is  the  Y  or  THETA  coordinate  of  lower  left  corner  of  the  point  at  which  ihe 

input  will  begin,  if  possible. 

DATA  is  a  single  variable  or  array  to  contain  either  rea’  numbers  or  a  GCS  text 
string.  The  size  of  DATA  is  variable. 

COUNT  is  a  single  variable.  If  the  user  has  specified  'TEXT'  input,  then  COUNT  in 
the  maximum  number  of  characters  returned  in  DATA.  The  size  of  DATA 
must  be  large  enough  to  contain  COUNT  characters.  The  characters  are 
returned  in  Hollerith  format,  left  justified  and  blank  filled.  If  the  terminal 
operator  inputs  fewer  characters  than  requested  in  COUNT,  then  DATA 
will  be  blank  filled  to  the  required  size.  If  the  user  has  specified  'REAL'  or 
'INTEGER',  then  the  value  of  COUNT  is  the  number  of  variables  to  be 
input.  For  'XYCOORDINATES',  the  value  of  COUNT  is  the  number  of 
coordinate  pairs  to  be  read.  For  'XYZCOORDINATES',  the  value  of  COUNT 
is  the  number  of  coordinate  triplets  to  be  read. 

FLAG  is  a  single  variable.  The  value  of  FLAG  will  be  zero  if  the  terminal  operator 

has  made  an  error  in  entering  the  numeric  data.  In  this  case,  the  value  of 
DATA  is  undefined.  If  the  required  input  was  correct,  then  the  value  of 
FLAG  is  the  number  of  elements  in  DATA,  or  the  number  of  characters  that 
the  terminal  operator  entered. 

OPTIONS  which  may  apply: 

Coordinate  System  Options  See  UPEN  and  UCOSYS 

ALPHANUMERIC  Options:  'TEXT',  INTEGER'.  REALNUMBER ,  ’XYCOORDINATE' 
Device  Switching  Options:  'MESS AGEDE VICE'.  PLOTDEVICE' 

A.  TEXT  —  Under  this  default  option.  UREAD  will  accept  and  store  COUNT 
characters  into  DATA  hence,  the  user  must  insure  that  DATA  has  been 
suitably  dimensioned  to  hold  the  number  of  characters  which  have  been 
requested  Should  fewer  than  COUNT  characters  be  entered  as  input.  UREAD 
will  store  the  actual  number  of  characters  entered  into  FLAG,  and  blank-fill  the 
remaining  (COUNT  -  FLAG)  characters  of  DATA  It  should  be  noted  that 
UREAD  does  not  append  the  termination  character  to  the  end  of  the  input 
The  etc'*.  the  user  is  responsible  for  inserting  this  character  via  UAPEND  if 
the  s'linq  is  to  be  oassed  as  a  parameter  to  UPRINT  or  UWRITE 
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B  REALNUMBER  -  This  option  directs  UREAD  to  edit  the  alphanumeric  input  as 
a  REAL  number,  and  to  store  the  resulting  floating-point  number  into  the 
single  valued  REAL  parameter  DATA.  Should  UREAD  encounter  any  illegal 
characters  during  the  edit,  FLAG  will  be  returned  with  a  negative  value,  and 
DATA  will  be  undefined. 

C.  INTEGER  -  As  in  the  case  of  REALNUMBER,  DATA  is  assumed  to  be  single¬ 
valued  and  of  type  REAL.  UREAD  will  edit  the  alphanumeric  input  as  an 
INTEGER,  perform  an  INTEGER  to  REAL  conversion,  and  store  the  result  into 
DATA.  The  user  may  check  if  the  operation  was  successfully  performed  by 
examining  FLAG  upon  return  from  UREAD 

D.  XYCOORDINATES  —  This  option  directs  UREAD  to  accept  two  REAL 
numbers  (separated  by  a  comma)  as  input  and  to  store  them  into  the  two 
element  REAL  array,  DATA  FLAG  is  set  to  reflect  the  status  of  the  input  and 
editing  operation. 

E.  XYZCOORDINATES  -  This  option  directs  UREAD  to  accept  three  REAL 
numbers  (separated  by  commas)  as  input,  and  store  them  into  the  three 
element  REAL  array  DATA  FLAG  is  set  to  reflect  the  status  of  the  input  and 
editing  system 

COMMENTS: 

The  input  begins  at  the  current  alphanumeric  cursor  position.  For  those  devices  which 
have  alphanumeric  capability  on  the  PLOT  device,  then  the  alphanumeric  cursor 
position  is  the  current  beam  position.  Otherwise,  the  input  will  be  from  the  MESSAGE 
device.  The  maximum  number  of  characters  retrieved  by  UREAD  is  unlimited,  however, 
the  number  of  characters  which  may  be  input  by  the  terminal  operator  may  be  limited. 
The  user  should  consult  the  proper  system  manual  to  determine  what  limits  exist,  if  any, 
for  a  particular  terminal  and  system. 

Programming  Notes: 
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Subroutine  URECT 
FUNCTION: 

This  routine  draws  a  rectangle  which  spans  from  the  current  beam  position  to  the 
diagonally  opposite  corner. 

CALLING  SEQUENCE: 


CALL  URECT  (X,Y) 


Where 

X  is  the  X-  or  RADIUS  component  of  the  specified  endpoint  in  current  user 

units. 

Y  is  the  Y-  or  THETA  component  of  the  specified  endpoint  in  current  user 

units. 

OPTIONS  which  may  apply: 

All  Line  Options 

All  Pen  Coordinate  Options 

UPSET  ('ORIENT',  ANGLE) 

COMMENTS: 

The  orientation  factor  specifies  the  amount  of  rotation  to  be  applied  to  the  rectangle. 
Note  that  the  orientation  factor  applies  to  the  entire  rectangle,  and  not  the  endpoint 
which  determines  the  rectangle. 

Programming  Notes: 
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CALL  USTART 
CALL  UOUTLN 
CALL  SPRNAS 
CALL  UEND 
STOP 
END 

SUBROUTINE  SPRNAS 
CALL  USET  C 'RELATIVE'S 
CALL  UNOVE  <26.0,06.05 
CALL  UPEN  <60.0,0.05 
CALL  UNOVE  <-26.0,0.05 
CALL  UPEN  <0.0.-10.05 
CALL  UARC  <0.0.-6.0,226.05 
DO  I  I-  I,  J 

CALL  UARC  <-3.636,-3.636,270.05 
»  CONTINUE 

CALL  UARC  <-3.636,-3.636,226.05 
CALL  UPEN  <0.0,-10.05 
CALL  UNOVE  <-12. 6.-12. 65 
CALL  URECT  <26.0.12.65 
RETURN 


rAi  i  USTART 

CAUL  UPSET  C ' TERMINATOR 5 

CALL  USET  C'EXTRALARCEO 

CALL  UOUTLN 

CALL  UHOVE  C2E..2EO 

CALL  USET  C'ARROWO 

CALL  UPEN  C  40.,  L3. 5 

CALL  UPSET  C 'ORIENTATION' , 46 . ) 

CALL  USET  C'LNULL'? 

CALL  URECT  <70. ,60.) 

CALL  USET  C'AAROU') 

call  upen  cea..ea.) 

CALL  UWRXTE  C4S.,40.,'4S  PEQREES*  O 
CALL  UEHD 


Subroutine  UREPRO 
FUNCTION: 

This  routine  reproduces  the  contents  of  the  provided  pseudo-device  file  on  the  current 
device  configuration. 

CALLING  SEQUENCE: 


CALL  UREPRO  (FILENR, STATUS) 


where 

FILENR  is  the  Fortran  file  number  of  a  file  generated  in  the  pseudo-device  file  for¬ 
mat. 

STATUS  is  a  value  returned  indicating  the  type  of  completion  from  UREPRO.  Valid 
codes  are: 

1  —  End  of  Page 

2  -  End  of  File 

3  —  End  of  all  Files 

4  —  Error 

OPTIONS  which  may  apply: 

Page  Advancement:  ‘ADVANCE’,  'NOADVANCE' 

Reproduction  Extent:  ‘PAGE’,  ‘FILE’,  'ALLFILES'. 

COMMENTS: 

This  routine  provides  the  mechanisms  whereby  graphics  output  generated  in  previous 
runs  on  to  the  pseudo-device  may  be  post-processed  to  an  actual  device.  The  reproduc¬ 
tion  extent  mode  allows  a  whole  queue  to  be  processed  OALLFILES'),  a  single  file 
('FILE'),  or  a  single  page  (‘PAGE’).  Whenever  control  is  returned  from  UREPRO,  the  cur¬ 
rent  beam/pen  position  will  be  at  the  last  location  specified  on  the  file  just  processed.  If 
PAGE'  was  specified,  the  frame  advance  will  occur  whenever  UREPRO  is  called  again. 
This  allows  additional  graphics  operations  on  the  page  just  processed. 

The  calling  program  can  retain  control  of  page  advances  by  selecting  'NOADVANCE'. 
However,  not  that  this  will  result  in  overlapping  frames  if  more  than  one  page  is  defined 
in  a  file  and  'FILE'  is  specified.  Similarly,  frame  overlap  will  occur  if  ‘ALLFILE’  is 
specified  and  more  than  one  file  is  to  be  processed  A  non-specified  page  advance  will 
occur  at  the  beginning  of  the  second  and  following  files  if  ALLFILES'  is  specified.  This 
prevents  overlapping  the  last  frame  of  one  file  with  the  first  frame  of  the  next. 

UREPRO  can  reproduce  any  file  created  using  the  pseudo-device  file  format  even 
though  the  file  was  generated  from  some  other  graphics  systems  output  from  GCS  can 
thus  be  merged  with  other  graphics  packages. 


Programming  Note*: 


Subroutine  URESET 
FUNCTION: 

To  reinitialize  the  Graphics  Status  Area  (GSA)  to  the  default  condition. 

CALLING  SEQUENCE: 

CALL  URESET 

OPTIONS  which  may  apply: 

No  options  apply. 

Programming  Notes: 
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Subroutine  UROTAT 


FUNCTION: 

A  user  coordinate  system  is  composed  at  the  current  beam  position  and  rotated 
according  to  the  rotation  factor  specified  in  the  argument 

CALLING  SEQUENCE: 


CALL  UROTAT  (ANGLE) 


Where 

ANGLE  is  the  rotation  factor  applied  to  the  new  coordinate  system  which  is 
composed  at  the  current  beam  position.  Angle  is  in  current  angular  units. 

OPTIONS  which  may  apply: 

WORKINGAXIS 

REFERENCEAXIS 

COMMENTS: 

The  invocation  of  this  subroutine  causes  the  creation  of  a  new  origin  (0.  0.)  at  the  current 
beam  position.  The  unit  scale  factors  are  assumed  to  be  equal  to  one.  For  a  detailed 
discussion  of  the  GCS  coordinate  system  facility,  refer  to  UCOSYS. 

Programming  Notes: 
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Subroutine  USAREA 
FUNCTION: 

This  subroutine  avoids  distortion  by  changing  the  device  boundaries  to  maintain  a  1  to  1 
ratio  with  the  current  window  boundaries. 

CALLING  SEQUENCE: 


CALL  USAREA 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

The  resulting  device  boundaries  can  be  found  by  CALL  USTUD(ARRAY) 

Programming  Notes: 


156 


Subroutine  USAVE 
FUNCTION: 

This  routine  saves  the  entire  contents  of  the  Graphics  Status  Area  (GSA)  in  an  array 
furnished  by  the  user.  This  array  will  be  suitable  for  later  use  as  input  to  UNSAVE  to 
restore  the  status  area  to  the  current  setting. 


CALLING  SEQUENCE: 


CALL  USAVE  (SARRAY) 


Where 

SARRAY 


is  an  array  large  enough  to  contain  the  variables  to  be  saved  from  the  status 
area. 


OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

T he  size  of  the  array  necessary  to  save  the  GSA  is  dependent  upon  the  particular  version 
of  GCS  being  used.  For  the  two  dimensional  version,  SARRAY  should  be  300  words 
(decimal)  long;  tor  the  three  dimensional  version  SARRAY  should  be  2100  (decimal) 
words  long 


Subroutine  USAXIS 


3D 


FUNCTION: 

This  routine  is  the  basic  axis  creation  routine  It  draws  a  single  axis  from  the  designated 
point  for  the  distance  specified  parallel  to  the  axis  specified. 

CALLING  SEQUENCE: 

CALL  USAXIS(AXIS,XSTART,YSTART,ZSTART,DIST) 


Where 

AXIS  specifies  the  coordinate  system  axis  which  is  parallel  to  the  desired  axis.  Its 

values  are  as  follows: 

'X AXIS':  axis  will  be  parallel  to  coordinate  system  X  axis 
'YAXIS':  axis  will  be  parallel  to  coordinate  system  Y  axis 
'ZAXIS':  axis  will  be  parallel  to  coordinate  system  Z  axis 

XSTART,  are  the  coordinates  of  the  starting  point  of  the  axis  to  be  drawn 
YSTART, 

ZSTART 

DIST  specifies  the  length  cf  the  axis.  A  positive  value  will  cause  the  axis  to 

extend  in  the  positive  direction.  A  negative  value  will  cause  the  axis  to 
extend  in  the  negative  direction. 


OPTIONS  which  may  apply: 

X  Axis  Labeling  Ootions  NOXLABELS',  ‘XNUMERICLABELS’, 

X  ALPHABETICAL  ABEL',  'XBOTHLABLES' 

Y  Axis  Labeling  Options:  'NOYLABELS',  ‘YNUMERIC  LABELS’, 

Y  ALPHABETIC  LABELS’,  ‘YBOTHL  ABELS' 


Z  Axis  Labeling  Options:  NOZLABFLS',  ZNUMERICLABELS  , 

ZALPHABETICL  ABELS'.  'ZBOTHLABELS' 


Alphabetic  Label  Specification.  UPSETCXLABEL',  GCS  character  string) 

UPSETCYLABEL',  GCS  character  string) 
UPSETCZLABEL'.  GCS  character  string) 


Numeric  Label  Format  Options:  BESTFORMAT,’  IFORMAT’,  'GFORMAT' 

Axis  Description  Options:  PLAINAXES'.  ‘TICAXES’ 

Tic  Interval  Specifications:  UPSET('TICX'.value) 

UPSETCTICY’, value) 

UPSETCTICZ', value) 


Tic  Size  Specifications.  UPSETCTICPLUSSIZE',  value) 

UPSETCTICMINUSSIZE',  value) 


Log  Scaling  Options:  ‘NOLOG’,  'XLOG',  'YLOG',  'ZLOG’,  ‘XYLOG’,  'XZLOG', 

'YZLOG'.  ‘XYZLOG’,  'LOGARITHMS' 


Log  Base  Specifications. 


UPSETCBASE’,  value) 

UPSETOXBASE’,  value) 

UPSETOYBASE',  value) 

UPSETCZBASE' value) 

Axis  Label  Orientation  Options:  ‘PARALLELABELS’,  ‘PERPENDICULARABELS’ 

Axis  Label  Position  Options:  ‘POSITIVESIDE’,  NEGAT'VESIDE’ 

Axis  Label  Plane  Options:  ‘XYPLANE’,  'XZPLANE',  'YZPLANE' 

Label  Rotation  Option:  UPSETCLABELROTATION’,  value) 

COMMENTS: 

The  axis  label  options  provide  for  producing  numbers  which  correspond  to  the  tic  marks 
(numeric  labels)  and  for  producing  a  description  of  the  axis  (alphabeticlabels).  These 
labels  are  individually  selectable  for  each  axis. 

<1 

The  location  of  the  labels  can  be  specified  using  several  different  options.  The  most 
signficant  of  these  is  that  which  specifies  the  plane  in  which  the  characters  will  be 
drawn.  The  three  options  are  'XYPLANE',  ‘XZPLANE’,  and  'YZPLANE'.  If  the  plane 
selected  is  perpendicular  to  the  axis  being  drawn,  the  angle  of  roatation  around  the  axis 
must  also  be  specified  by  the  UPSET  OLABELORIENATION’,  value)  call  (default  is  0 
degrees). 

The  user  can  also  select  which  side  of  the  axes  the  labels  will  appear.  ‘POSITIVESIDE’ 
specifies  that  the  labels  will  be  above  or  to  the  right  of  the  axis.  ‘NEGATIVESIDE’ 
specifies  that  the  labels  are  to  the  left  or  below  the  axis.  Default  is  ‘NEGATIVESIDE’. 

The  orientation  of  the  labels  cart  be  specified  by  either  the  PARALLEL’  or  ‘PERPEN¬ 
DICULAR’  USET  options  PARALLEL  specifies  that  the  major  axis  of  the  numeric  labels 
(their  lengths)  will  be  along  the  axis.  'PERPENDICULAR'  specifies  that  the  major  axis  of 
the  numeric  labels  will  be  perpendicular  to  the  axis.  Alpha  labels  always  have  their 
major  axis  parallel  to  the  axis  being  drawn.  It  should  be  noted  that  if  hardware  charac¬ 
ters  are  to  be  used,  vertical  spacing  may  be  necessary  to  maintain  the  correct  label 
orientation.  In  some  instances,  it  may  even  be  necessary  to  produce  labels  at  some  obli¬ 
que  angles.  Software  character  labels  will,  however,  always  be  produced  in  the  proper 
orientation. 

USAXIS  will  always  draw  the  requested  axis  in  the  current  coordinate  system  and  space. 
No  attempt  is  made  to  insure  that  the  axis  is  visible.  Also  no  scaling  is  performed 
although  a  tic  interval  may  be  calculated  if  not  specified 


Programming  Notes: 


0  2  4  6  8 

1  5  S  7 

LOGGED  AND  NONLOGGED  CIRCLES 


PAl  i  ustart 

CAUL  UPSET  <' TERMINATOR', '  ; 

CALL  USET  C' SOFTWARE  CHARACTERS' 5 
CALL  UPSET  C' VERTICAL', ,4i 
CALL  UPSET  <' HORIZONTAL'. .43 
CALL  UWINPO  <-3., I0..-3., «8.> 

CALL  UPSET  C'TICX', I . 5 
CALL  UPSET  <'TICY',1.5 

CALL  UPSET  C'XLABEL'. 'LOOSED  AND  N0NLO99EP  CIRCLES; '> 
CALL  USET  C'XBOTHLABELS'} 

CALL  U6AXIS  <'XAXIS',0..0..0..«.i 
CALL  USAXIS  ('TAXIS' .0. ,0. .0. .8. ) 

CALL  UCRCLE  C4.,4.,3.63 

CALL  U3CSYS  C8. .2 .  .  8. . I . ,2. . I . .0 . .0. , 0. > 

CALL  UPSET  ('HORIZONTAL', . I  S3 
CALL  UPSET  ('VERTICAL', .33 
CALL  UPSET  ('BASE', 2. 3 
CALL  USET  C'YLOB'3 
CALL  USET  ('LOGUSER'3 
CALL  USAXIS  C'YAXIS',-1 .6, .5,0. ,7. S3 
CALL  UCRCLE  (4., 4..  3. S3 
CALL  UENO 
STOP 
END 
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Subroutine  USCALE 
FUNCTION. 

A  user  coordinate  system  is  composed  at  the  current  beam  position  and  scaled 
according  to  the  scale  (actors  specified  In  the  argument 

CALLING  SEQUENCE: 


CALL  USCALE(SCLX.SCLY) 

Where 

SLT.X  I*  the  ratio  of  a  unit  length  in  the  current  X  direction  to  the  length  of  a  unit 

length  in  the  new  X  direction. 

SC'LY  is  the  ratio  of  a  unit  length  in  the  current  Y  direction  to  the  length  of  a  unit 

length  in  the  new  Y  direction. 

OPTIONS  which  may  apply: 

WORKINQAXIS 

REFERENCEAXIS 

COMMENTS: 

The  Invocation  o(  this  subroutine  causes  the  creation  ol  a  new  origin  (0 .0 )  at  the  eurient 
beam  position  The  rotation  lot  tor  is  assumed  to  be  /eio  For  a  detailed  discussion  ol 
the  GCS  coordinate  system  facility,  roler  to  Subroutine  UCOSYS 


Programming  Notaa: 


CALL  USTART 
CALL  UOUTlN 
CALL  UMOVE  C2S.,2S.3 
CALL  USCALE  Cl . , I . > 

CALL  FIGURE 

CALL  USET  C  *  SYSTEM AXIS '  > 
CALL  UMOVE  C2S..76.) 

CALL  USCALE  C-l .. I .5 
CALL  FIGURE 

CALL  USET  C'SYSTEMAXISO 
CALL  UMOVE  C76.,2S.5 
CALL  USCALE  C.B.-I.5 
CALL  FIGURE 

CALL  USET  C'SYSTEMAXISO 

CALL  UMOVE  C7S..7C.5 

CALL  USCALE  C-2.,-l.> 

CALL  FIGURE 

CALL  UENP 

STOP 

ENP 

SUBROUTINE  FIGURE 
CALL  UPEN 

call  upen  cia..za.> 

CALL  UPEN  <0.,G.) 

return 

ENP 


Subroutine  USCATR 
FUNCTION: 

This  routine  draws  a  scatter  plot  from  the  user  input  data,  drawing  axes  as  specified. 

CALLING  SEQUENCE: 


CALL  USCATR(X,Y,PTS) 


Where 

X  is  a  real  array  of  X  or  RADIUS  coordinates  for  the  points  in  the  diagram 

Y  is  a  real  array  of  Y  or  THETA  coordinates  for  the  points  in  the  diagram 

pjS  is  a  real  constant  or  variable  specif "ing  the  number  of  points  in  the  diagram 


OPTIONS  which  may  apply: 


Axis  Existence: 

Axis  Format: 

X  Axis  Labeling: 

Y  Axis  Labeling: 
Numeric  Label  Format: 
Scaling  Type: 

X,Y  Axis  Types. 

Coordinate  Type: 
Curve  Fitting' 


‘XYAXES’,  'XAXIS',  'YXAXIS',  ‘NOAXES’ 

‘TICAXES',  'PLAINAXES',  'GRIDAXES' 

‘XNUMERIC’,  'XALPHALABEL',  ‘XBOTH’,  'NOXLABEL' 
‘YNUMERIC’,  'YALPHALABEL',  ‘YBOTH’,  'NOYLABEL' 
‘BESTFORMAT’,  'IFORMAT',  GFORMAT’ 

‘AUTOSCALE’,  FULLSCALE’,  OWNSCALE' 
‘NOLOGARITHMS’,  'XLOGAXIS'.  'YLOGAXIS',  XYLOGAXIS', 
•LOGARITHM’ 

‘RECTANGULAR’,  POLAR 
‘NOFITTING’,  'FITLINEAR' 


COMMENTS: 

This  routine  is  very  similar  to  UPLOT  with  the  use  of  the  line  option  'NPOINT',  i.e.,  a  null 
line  with  a  point  as  terminator. 


Programming  Notes: 


PENSION  XCI82).  YC 1 823 
DATA  PX0YS/a. 3926990822/ 
CALL  USTART 
CALL  USET  C 'POLAR' > 

CALL  USET  C 'RADIANS') 

PgJ.®  I  -  I.  182 
THETA  -P3BY8  »  FLOATCI) 

•  *  88  :  TMeTAEX'C-THeTA/lC‘i 

STOP 

END 
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Subroutine  USET 
FUNCTION: 

This  routine  allows  the  user  to  set  options  in  the  Graphics  Status  Area  (GSA).  Options 
will  remain  set  until  changed  by  a  subsequent  USET  or  UPSET  call  or  until  the  GSA  is 
restored  during  an  UNSAVE  or  UNSVPN  call 

CALLING  SEQUENCE: 

CALL  USET  (OPTION) 

Where 

OPTION  is  the  mnemonic  option  name  which  uniquely  identifies  the  option  to  be  set, 
or  is  the  first  four  characters  of  such  an  option  name. 

OPTIONS  which  may  apply: 

No  options  app'y. 

COMMENTS. 

In  the  following  table,  those  options  flagged  by  the  notation  '3D'  are  contained  within 
only  the  three  dimensional  version  of  GCS 

The  notation  T  indicates  that  these  options  pertain  to  a  system  having  an  interactive 
capability.  On  passive  graphics  systems,  the  options  have  no  effect. 

Programming  Notes: 
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USET  OPTIONS  BY  ALPHABETICAL  ORDER. 
(Default  Options  are  in  Bold  Type) 


Option  Name 


To  Request 


'AARROW' 

'ABACKARROW 

'ABEND' 

'ABORT' 

‘ABSb’ 

‘ABSOLUTE’ 

'ABUTTING' 

■ACENTER' 

'ACHARACTER' 

‘ACOORDINATE' 

‘ADDITIVE' 

‘ADOUBLEARROW 

‘ALLDISPLAYS' 

'ALPHANUMERIC' 

'ALTERNATEDISPLAY' 

'ANNUAL' 

■ANULL- 

■APOINT' 

'ARROWLINE' 

‘ASYMBOL' 

AUTOSCALE’ 

'BACKARROWLINE' 

‘BALL' 

'BLACK' 

‘BBLUE' 

'BCYAN’ 

‘BESTFORMAT’ 

■BIHOURLY’ 

'BLACK' 

BLUE' 

BMAGENTA' 

BRED' 

BRIGHT’ 

'BUILD' 

'BWHITE' 

'BYELLOW' 

CENTIMETERS’ 

‘CHARACTER' 

‘C  JUSTIFICATION’ 

'COMPRESSED'* 

’CONTINUOUS’ 

COORDINATES' 

CURSOR’ 

'CWINDOWING' 

'CYAN' 

'CYLINDRICAL’ 


Alphanumeric  lines  with  arrow  terminators 
Alphanumeric  lines  with  back  arrow  terminators 

3D.*  To  halt  execution  when  error  count  exceeds 
certain  limit 

3D  To  halt  execution  when  error  count  exceeds 
certain  limit 

Plotting  in  an  absolute  coordinate  system 
Plotting  in  an  absolute  coordinate  system 
Abutting  of  display  surtace  pages 
To  center  character  output  about  given  location 
Alphanumeric  lines  with  character  terminators 
Alphanumeric  lines  with  ending  coordinates  in¬ 
dicated 

Additive  color  blending  mode 

Alphanumeric  lines  with  arrowhead  terminators 

Routing  of  graphical  output  to  all  devices 

Alphanumeric  lines  with  no  terminators 

Routing  of  graphical  output  to  first  alternate 

device 

Time  series  axis  scale  in  yearly  intervals 
Alphanumeric  lines  with  no  terminators 
Alphanumeric  lines  with  point  terminators 
Solid  lines  with  arrow  terminators 
Alphanumeric  lines  with  character  terminators 
Automatic  scaling  for  higher  level  graphing 
Solid  lines  with  back  arrow  terminators 
Track  ball  graphical  input 
Background  color  to  be  black 
Background  color  to  be  blue 
Background  color  to  be  cyan 
Numeric  label  output  in  best  possible  format 
Time  series  axis  scale  in  two  hour  intervals 
Switch  to  pen  color  black 
Switch  to  pen  color  blue 
Background  color  to  be  magenta 
Background  color  to  be  red 
Highest  possible  intensity  for  output 
3D  Structure  building 

Background  color  to  be  white 
Background  color  to  be  yellow 
Device  space  coordinates  are  in  centimeters 
Null  or  invisible  lines  with  character  terminators 
Alphanumeric  center  justification 
3D  Data  structure  editing  option 

Curved  lines  be  interpreted  as  one  pen  operation 
UPRINT/UWRITE  output  in  (X, Y)  coordinate  format 
Graphic  cursor  as  graphic  input  device 
3D  Circular  windowing 

Switch  to  pon  color  cyan 

Coordinates  are  to  be  of  the  form  (R, THETA, Z), 
where  R  is  the  number  of  units  of  radius  in  the  X,Y 
plane,  THETA  is  the  number  of  angular  units 


around  the  Y  axis,  and  Z  is  the  number  of  units 
along  the  Z  axis 


‘DAILY' 

Time  series  axis  scale  in  daily  intervals 

DARROW' 

Dashed  lines  with  arrow  terminators 

DASH' 

Dashed  lines  with  null  terminations 

DATE’ 

Time  series  axis  scale  in  date  series  interval 

DBACKARROW' 

Dashed  lines  with  airow  terminators 

DCHARACTER’ 

Dashed  lines  with  character  terminators 

DCOORDINATES' 

Dashed  lines  with  endpoint  coordinates  indicated 

'DDOUBLE  ARROW' 

Dashed  lines  with  double  arrow  terminators 

DEFERRED' 

• 

Deferred  error  output  until  UEND  is  called 

‘DEGREES’ 

Angular  information  be  interpreted  in  degrees 

‘DESENSITIZE’ 

1 

Disabling  of  pick  sensitivity 

'DETECTABLE' 

Enabling  of  pick  sensitivity 

DEVICE' 

Plotting  in  device  space 

'DIGITIZER' 

Digitizer  is  graphics  input  device 

'DIMb' 

Lowest  possible  intensity  for  output 

'DIMENSIONLINE' 

Solid  lines  with  arrow  terminators 

'DISPLAY' 

Plotting  in  device  space 

'DNULL' 

Dashed  lines  with  no  terminators 

‘DOUBLEARROW' 

Solid  lines  with  double  arrow  terminators 

'DPOINT' 

Dashed  lines  with  point  terminators 

'DSYMBOL' 

Dashed  lines  with  character  terminators 

'DUMP' 

To  select  dump  option 

‘ECHO’* 

1 

Echo  alphanumeric  input  option 

‘EDGEAXIS’ 

X  and  Y  axis  labels  at  edge  of  graph 

‘ERROROUTPUT’ 

Immediate  error  output 

‘EXECUTE’ 

3D 

Execution  of  data  structure  commands  as  they  are 
built 

'EXPANDED'* 

3D 

Data  structure  editing  option 

EXTENDEDMENU'* 

l,3D 

Extended  menuing  option 

‘EXTRALARGE’ 

Extra  large  character  size 

'FAST' 

Fast  blink  rate 

‘FITLINEAR’ 

Fit  linear  function  to  plotted  lines 

'FITPOLYNOMIAL' 

Fit  least  squares  polynomial  to  plotted  points 

'FITSOLINE' 

Fit  cubic  spline  curve  to  plotted  points 

'FNUMBERMODE' 

Frame  identifiers  provided  as  numbers 

‘FONTUNITS’ 

To  indicate  device  spage  plotting  in  font  units 

'FULLSCALE' 

Full  scaling  for  higher  level  graphing 

'FUNCTIONKEYS' 

Function  key  is  graphics  input  device 

'GAPPED' 

Alternate  light  and  dark  line  output 

'GFORMAT' 

Numeric  label  output  in  FORTRAN  real  (E  or  F) 
format 

‘GOTHIC’ 

Gothic  character  font 

'GRADS’ 

3D 

Angular  units  to  be  measured  in  grads 

'GREEN' 

Switch  to  pen  color  green 

'GRIDAXIS' 

Grid  axes  for  higher  level  graphing 

HARDWAREFONT’ 

Output  of  hardware  generated  characters 

'HIGHLIGHTED' 

Highlighted  segments 

HITHER/YONbCLIPPING' 

Z  axis  clipping 

■HORIZONTAL’ 

3D 

Alphanumeric  output  to  be  printed  horizontally 

'HOURLY' 

Time  series  axis  scale  in  twenty-four  hourly  inter¬ 
vals 

'IFORMAT' 

Numeric  label  output  in  integer  format 

'IGNORE' 

3D 

Ignore  duplicate  studies  on  merge  file 

‘INCHES’ 

Device  space  coordinates  in  inches 

‘INCREMENTAL’ 

Plotting  in  an  incremental  coordinate  system 
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'INTEGER' 

INVISIBLE’ 

■ITALICS’ 

•JOYSTICK’ 

KEYBOARD' 

LARGE' 

‘LARROW 

‘LBACKARROW 

LCHARACTER’ 

‘LCOORDINATES’ 

LDOUBLEARROW' 

'LEFT' 

‘LETTER’ 

•LIGHTPEN' 

‘UNE’ 

^JUSTIFICATION’ 

LNULL’ 

'LOGARITHMIC' 

'LOGOBJECT' 


‘LOGORIGINALUNITS’ 

‘LOGSYSTEM 


LOGUSER’ 


LOWERCASE’ 

‘LPOINT' 

LSYMBOL’ 

MAGENTA' 

'MEDIUM' 

MESSAGEDEVICE’ 

'MILS' 

MINUTELY’ 

'MONTHLY' 

■MOUSE’ 

'MOVE' 

'MULTIPLE' 

'NARROW' 

‘NBACKARROW’ 

NCHARACTER’ 

NCOORDINATES' 

■NDOUBLEARROW' 

'NEGATIVESIDE' 

NEWSCALE’ 

‘NNULL' 

‘NObLINE' 

NOABORT’ 


UPRINT/UWRITE  output  in  integer  format 
Invisible  construction  of  frames  and  segments 
Italic  character  format 
I  Joystick  as  graphic  input  device 

I  Keyboard  as  (pseudo)  graphic  input  device 
Large  character  size 
Solid  lines  with  arrow  terminators 
Solid  lines  with  back  arrow  terminators 
Solid  lines  with  character  terminators 
Solid  lines  with  endpoint  coordinates  indicated 
Solid  lines  with  double  arrow  terminators 
3D  Left  handed  coordinate  system 

UPRINT/UWRITE  output  in  text  format 
I  Light  pen  as  graphic  input  device 
Solid  lines  with  null  terminators 
Alphanumeric  left  justification 
Solid  lines  with  null  terminators 
Applies  logarithmic  transforms  to  all  components 
3D  Logarithmic  transforms  are  to  be  applied  before 
any  other  transformations.  (In  this  mode,  log 
transforms  may  be  applied  to  angle  or  radius  com¬ 
ponents  of  ‘CYLINDRICAL’,  POLAR',  or  ‘SPHERI¬ 
CAL’  coordinates) 

Application  of  log  scaling  before  conversion  to 
rectangular 

3D  Logarithmic  to  be  applied  after  conversion  to 
‘SYSTEM’  coordinates  (in  this  mode,  the 
logarithmic  coordinate  system  axes.) 

3D  Logarithmic  transforms  are  to  be  applied  after 
conversion  to  'ABSOLUTE',  RECTANGULAR’, 
'USER'  coordinates  but  before  conversion  to 
‘SYSTEM’  coordinates.  (In  this  mode,  the 
logarithmic  scaling  will  be  applied  along  the  cur¬ 
rent  'USER'  coordinate  system  axes.) 

Lower  case  to  be  ‘TEXT’  case 
Solid  lines  with  point  terminators 
Solid  lines  with  character  terminators 
Switch  to  pen  color  magenta 
Medium  character  size 

Alphanumeric  I/O  routed  to  a  message  device 
3D  Angular  units  to  be  measured  in  mils 

Time  series  axis  scale  in  minute  intervals 
Time  series  axis  scale  in  monthly  intervals 
I  Analog  mouse  as  graphic  input  device 
Invisible  lines  with  null  terminators 
3D  Multiple  data  structure  invocation 

Invisible  lines  with  arrow  terminators 
Invisible  lines  with  back  arrow  terminators 
Invisible  lines  with  character  terminators 
Invisible  lines  with  double  arrow  terminators 
Invisible  lines  with  double  arrow  terminators 
3D  Labels  will  be  to  the  left  or  below  the  axes 
New  scale  for  higher  level  graphing 
Invisible  lines  with  null  terminators 
Invisible  lines  with  null  terminators 
3D  Do  not  terminate  if  error  count  exceeds  specified 
limit 
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'NOAXES' 

‘NOBLINK’ 

‘NOBUILD’ 

3D 

No  axes  be  drawn  for  higher  level  graphing 

No  blinking  to  occur 

No  structure  building 

‘NOCENTER’ 

'NODUMP' 

3D 

Text  output  starts  at  given  point 

No  dump  performed 

NOECHO' 

l,3D 

No  echoing  of  alphanumeric  input 

‘NOEXECUTE' 

3D 

No  execution  of  data  structure  commands  as  they 

‘NOFIT’ 

‘NOHIGHLIGHTING’ 

‘NOITALICS’ 

'NOLINE' 

‘NOLOGARITHMS’ 

3D 

are  built 

No  curve  fitting  for  higher  level  graphics 

No  segment  highlighting 

No  slanting  of  software  characters 

Invisible  lines  with  null  terminators 

To  remove  logorithmic  transform  application 

NONUNIFORM' 

3D 

High  level  plotting  option 

NCMARK' 

NONABUTTING' 

NONRETAINEDSEGMENTS' 

NONUNIFORM' 

'NOORIGIN' 

3D 

Invisible  marks  with  null  terminators 

No  abutting  of  display  surface  pages 

Create  segments  in  non-retained  form 

Nonuniform  scaling  of  higher  level  grading 

No  origin  to  be  forced  for  'AUTOSCALE'  or 

'NOREPEAT' 

3D 

FULLSCALE'  scaling  options 

No  coordinate  repeating  for  high  level  plotting 

'NOREWIND' 

‘NORMALINTENSITY’ 

‘NOSCRIPT’ 

3D 

No  rewina  of  structure  save  files 

Normal  intensity  for  output 

To  disable  any  superscripting  or  subscripting  of 

'NOSIGNIFICANTZEROES' 

‘NOSUPERSCRIPT’ 

3D 

text  output 

Suppression  of  display  of  significant  zeros 

Same  as  'NOSCRIPTING' 

'NOTRAIL' 

3D 

Record  of  which  GCS  routines  are  invoked  is  not 

'NOWINDOWING' 

3D 

listed 

Disable  GCS  windowing  routine 

NOXLABEL' 

•NOXREPEAT’ 

3D 

No  labels  are  to  be  drawn  for  graphing 

To  indicate  that  a  component  is  provided  for  every 

NOYLABFL' 

‘NOYREPEAT’ 

3D 

X  value  in  every  curve  in  higher  level  graphing 

No  Y  labeling  for  graphing 

To  indicate  that  a  component  is  provided  for  every 

‘NOZCLIPPING’ 

'NOZLABELS' 

3D 

Y  value  in  every  curve  in  higher  level  graphing 

No  hither/yon  clipping 

To  indicate  that  no  Z  labels  are  to  be  drawn  for 

•NOZREPEAT’ 

3D 

higher  level  graphing 

To  indicate  that  a  component  is  provided  for  every 

NObLINE' 

'NObMARK' 

■NPOINT' 

'NSYMBOL' 

'OLDSCALE' 

'ORIGIN' 

3D 

Z  value  in  every  curve  in  higher  level  graphing 
Invisible  line  with  null  terminator 

Line  type 

Invisible  lines  with  point  terminators 

Invisible  lines  with  character  terminators 

Old  scale  to  be  used  for  higher  level  graphing 

An  origin  to  be  forced  for  'AUTOSCALE'  and 

'ORMODE' 

I.3D 

'FULLSCALE'  scaling  options 

Asynchronous  event  processing  option 

ORTHOGRAPHIC 

3D 

To  specify  orthographic  projection  in  which  the 

'OWNSCALE' 

‘PARALLELLABELS’ 

3D 

projection  is  parallel  from  all  points 

Own  scale  option  for  higher  level  graphing 

To  specify  that  the  main  axis  of  the  numeric  labels 

'PENAXIS' 

PENDOWN’ 

‘PENORIGIN’ 

3D 

will  be  parallel  to  the  axis 

Axis  intersection  at  current  position  for  graphing 
Solid  lines  with  null  terminators 

To  force  the  current  pen  position  to  be  included  in 

the  axis  range 


‘PENUP’ 

Invisible  lines  with  null  terminators 

PERIODIC' 

Time  series  axis  scale  in  accounting  period 
intervals 

‘PERCENT-UNITS’ 

Device  space  coordinates  specified  in  percent 
units 

‘PERPENDICULARLABELS’ 

3D 

To  specify  that  the  major  axis  the  numeric  labels 
will  be  perpendicular  to  the  axis 

‘PERSPECTIVE’ 

3D 

To  specify  perspective  projection  in  which  line 
length  diminishes  as  the  distances  from  the 
viewing  position  become  greater 

'PIRADIANS’ 

3D 

Angular  information  be  interpreted  in  PI  radians 

‘PLAINAXIS’ 

Plain  axes  to  be  drawn  for  high  level  graphing 

‘PLOTDEVICE' 

Alphanumeric  I/O  to  the  plotting  device 

'POINT' 

Invisible  lines  with  point  terminators 

■POLAR’ 

Plotting  in  polar  (RHO,  THETA)  units 

'POSITIVESIDE’ 

3D 

Labels  will  be  above  or  to  the  right  of  the  axis 

PRIMARYDEVICE’ 

Routing  of  graphical  output  to  primary  device 

QUARTERLY’ 

Time  series  axis  scale  in  quarter  year  intervals 

‘RADIANS’ 

Angular  information  be  interpreted  in  radians 

‘RASTERUNITS’ 

To  indicate  device  space  coordinates  are  spec¬ 
ified  as  is  in  raster  units 

■REAL’ 

UPRINT/UWRITE  output  in  real  number  format 

‘RECTANGULAR’ 

Plotting  on  the  user’s  reference  axis 

REDb' 

Switch  to  pen  color  red 

REFERENCE' 

Plotting  on  the  user's  reference  axis 

‘REFRESHEDSEGMENT’ 

Segments  to  be  retained 

RELb' 

Plotting  in  a  relative  coordinate  system 

‘RELATIVE’ 

Plotting  in  a  relative  coordinate  system 

‘REPLACE1 

3D 

Data  structure  building  option 

'RET  AINEOSEGMENTS’ 

Segments  to  be  retained  structures  from  merge 
file 

‘REWIND’ 

3D 

Data  structure  file  handling  command 

‘RIGHTHAND’ 

3D 

Right  handed  coordinate  system 

'R  JUSTIFICATION’ 

Alphanumeric  right  justification 

■RWINDOWING' 

3D 

Rectangular  windowing 

SECONDLY’ 

Time  series  axis  scale  >n  second  intervals 

'SECRET' 

Security  classification  secret 

■SEGMENTED’ 

Curved  lines  be  interpreted  as  multiple  pen 
operations 

■SEMIANNUAL’ 

Time  series  axis  scale  in  semi  annual  intervals 

■SENSITIZE’ 

3D 

Make  graphic  segments  visible 

'SIGNIFICANTZEROES’ 

Display  of  significant  zero 

‘SIMULATED  HARDWARE 
CHARACTERS' 

Output  of  simulated  hardware  characters 

'SINGLE' 

3D 

Data  structure  invocation  option 

■SITEPOINT’ 

3D 

Viewpoint  distance  to  be  measured  from  the  view 
site 

■SLOWBLINK’ 

Slow  blink  rate 

‘SMALL’ 

Use  smallest  hardware  character  size 

■SOFTWAREFONT’ 

Output  of  software  generated  characters 

■SONICPEN’ 

1 

Sonic  pen  is  graphics  input  device 

'SPECIFIC' 

To  specify  particular  device  units  instead  of 
percent  units 

•SPHERICAL' 

Coordinates  are  of  the  form  (R. THETA, PHI)  where 
R  is  the  number  of  units  of  radius,  THETA  is  the 
number  of  angular  units  around  the  Z  axis,  and  PHI 
is  the  number  of  angular  units  around  the  X  axis 

‘STANDARDMENU’ 

l,3D 

SUBSCRIPT’ 

3D 

SUPERSCRIPT' 

3D 

SUPPRESSERRORS' 

■SYMBOL’ 

SYSTEMAXIS’ 

■TABLET’ 

•TARROW 
■TBACKARROW’ 

■TCHARACTER’ 

•TCOORDINATES’ 

‘TDOUBLE  ARROW' 

‘TEXT’ 

‘SUBTRACTIVE’* 

•TICAXES’ 

■TICLINE' 

‘TNULL’ 

•THINLINES’ 

■TOPSECRET' 

'TPOINT' 

■TRAIL’ 

■TSYMBOL' 

TWELVEHOUR’ 
‘TWENTYFOURHOUR’ 

'UNCLASSIFIED' 

‘UNDETECTABLE’ 

UNIFORM’* 

‘UNINTERRUPTED’ 
‘UPPERCASE’ 

USER' 

■VERTICAL’ 

■VIEWPOINT’ 

‘VIRTUAL’ 

VISIBLE’ 

WEEKLY’ 

'WHITE' 

■WIDELINES’ 

‘WORKINGAXIS’ 
‘WORLOCOORDINATESYSTEM’ 

■XABSOLUTE’  3D 


‘X  ALPHANUMERIC’ 

'X  AXIS' 

■XBOTHLABELS' 

■XCONSTANT’  3D 


XEDGEYZERO  AXIS' 
■XLOGARITHMIC’ 


3D 

3D 

3D 


Menulng  option 

To  specify  that  the  output  will  be  lowered  from  the 
specified  line  of  text 

To  specify  that  the  output  will  be  raised  from  the 
specified  line  of  text. 

Error  output  be  suppressed 
Invisible  lines  with  character  terminators 
Plotting  on  the  system  axis 
Analog  tablet  as  graphic  input  device 
Tic  lines  with  arrow  terminators 
Tic  lines  with  back  arrow  terminators 
Tic  lines  with  character  terminators 
Tic  lines  with  endpoint  coordinates  indicated 
Tic  lines  with  double  arrow  terminators 
UPRINT/UWRITE  output  in  text  format 
Subtractive  color  blending  mode 
Tic  axes  to  be  drawn  for  higher  level  graphing 
Tic  lines  with  null  terminators 
Tic  lines  with  null  terminators 
Line  width  to  be  thin 
Security  Classification  Top  Secret 
Tic  lines  with  point  terminators 
To  indicate  by  an  identification  number  which 
GCS  routine  is  involved 
Tic  lines  with  character  terminators 
Time  series  axis  scale  in  twelve  hour  intervals 
Time  series  axis  scale  in  twenty  four-hour  inter¬ 
vals 

Security  classification  unclassified 

Disabling  pick  sensitivity 

High  ievel  graphing  system 

Non-gapped  line  output 

Upper  case  to  be  'TEXT'  case 

Plotting  on  a  user  defined  axis  system 

Alphanumeric  output  to  be  spaced  vertically 

View  port  distance  to  be  measured  from  the  view 

point 

Plotting  in  virtual  space 

Visible  framed  output 

Time  series  axis  scale  in  weekly  intervals 

Switch  to  pen  color  white 

Line  width  to  be  wide 

Plotting  on  the  user's  working  (temporary  axis) 
Coordinate  system  to  be  the  default  axis  system 
To  specify  the  X  coordinates  with  respect  to  the 
origin  of  the  current  coordinate  system  for  indica¬ 
ted  components.  Y  and  Z  components  are  to  be 
specified  with  respect  to  the  current  beam/pen 
position 

An  X  axis  alphanumeric  label 

The  X  axis  be  drawn  for  high  level  graphing 

X  axis  alphanumeric  and  numeric  labels 

To  indicate  that  the  X  component  does  not  vary 

during  the  drawing  of  any  curve  in  higher  level 

graphics 

The  X  axis  at  edge  of  graph 
Logarithmic  X  and  linear  Y  plotting 
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‘XNEGATIVE’ 

‘XNUMERIC’ 

•XPOSITIVE’ 

‘XRELATIVE’ 


•XREPEAT’ 


•XYAXES' 

‘XYABSOLUTE' 


XYCOORDINATES' 

XYLOGARITHMIC’ 

‘XYPLANE’ 

‘XYRELATIVE’ 


‘XYVIEW’ 

XYZAXES’ 

XYZCOORDINATES' 

’XYZLOG’ 

‘XYZVIEW’ 

’XYZb’ 

XYCOORDINATES' 

'XZABSOLUTE' 


‘XZAXES’ 

‘XZEROYEDGE  AXIS’ 
'XZLOGARITHMIC 

'XZPLANE' 

‘XZRELATIVE’ 


•XZVIEW’ 

XZYb’ 

'YABSOLUTE' 


'Y  ALPHANUMERIC’ 
YAXIS' 

•YBOTHLABELS’ 


3D  Negative  X  axis  represents  up  in  3D  graphics 
An  X  axis  numeric  label 

3D  Positive  X  axis  represents  up  in  3D  graphics 
3D  To  specify  the  X  coordinates  with  respect  to  the 
current  beam/pen  position.  Y  and  Z  components 
are  to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

3D  To  indicate  that  one  set  of  X  valves  is  provided 
which  will  be  reused  for  every  curve  in  higher  level 
graphing 

The  X  and  Y  axes  be  drawn  for  high  level  graphing 
3D  To  specify  the  X  and  Y  coordinates  with  respect  to 
the  origin  of  the  current  coordinate  system  for  the 
indicated  components.  Z  components  are  to  be 
specified  with  respect  to  the  current  beam/pen 
position 

To  specify  that  the  data  printed  by  UPRINT/ 
UWRITE  is  in  the  form  of  an  (X,Y)  coordinate  pair. 
3D  Logarthmic  X  and  Y  plotting,  linear  Z  plotting 

3D  Labels  are  to  be  drawn  in  the  plane  formed  by  the 

X  and  Y  axes 

3D  To  specify  the  X  and  Y  components  with  respect  to 
the  current  beam/pen  position.  Z  components  are 
to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 
3D  To  view  plane  formed  by  X  and  Y  axes 
3D  All  three  axes  are  to  be  drawn  for  higher  level 
graphing 

3D  Text  printed  by  U3PRNT/U3WRIT  to  be  in  form  cl 
(X.Y.Z)  triplet 

3D  Applies  logamithmic  transforms  to  all  three  com¬ 
ponents 

3D  To  view  all  three  axes 

3D  To  set  the  rotation  application  order  as  indicated 
UPRINT/UWRITE  output  in  (X,Y)  coordinate  format 
3D  To  specify  the  X  and  Z  coordinates  with  respect  to 
the  origin  of  the  current  coordinate  system  for  the 
indicated  components.  Y  components  are  to  be 
specified  with  respect  to  the  current  beam  posi¬ 
tion 

3D  The  X  and  Z  axes  are  to  be  drawn  for  higher  level 
graphing 

The  X  axis  adjacent  to  boundary  of  display  area 
3D  Applies  Logarithmic  transformation  to  X  end  Z 
components 

3D  Label  plane  to  be  plane  formed  by  X  and  Z  axis 
3D  To  specify  the  X  and  Z  components  with  respect  to 
the  current  beam/pen  position.  Z  components  are 
to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

3D  To  view  the  plane  formed  by  the  X  and  Z  axes 
3D  To  set  the  rotation  application  order  as  indicated 
3D  Y  coordinates  are  specified  with  respect  to  the 
origin  of  the  current  coordinate  system  for  the 
indicated  units.  X  and  Z  components  are  specified 
with  respect  to  the  current  beam/pen  position 

Y  axis  alphabetic  label 

The  Y  axis  to  be  drawn  for  high  level  graphing 

Y  axis  having  alphabetic  and  numeric  labels 


YCONSTANT' 

YEARLY' 

'YEDGEXZEROAXIS' 

'YELLOW' 

'YLOGARITHMIC 

'YNEGATIVE' 

'YNUMERIC' 

'YPOSITIVE' 

‘YRELATIVE’ 


YREPEAT' 


'YXZb' 

YZABSOLUTE' 


'YZAXES' 

'YZPLANE' 
‘YZEROXEDGE  AXIS’ 
‘YZLOGARITHMIC 

'YZRELATIVE' 


‘YZVIEW’ 

‘YZXb 

'ZABSOLUTE' 


ZALPHANUMERIC’ 

ZAXIS’ 

'ZBOTHLABELS' 

'ZCLIP' 

ZCONSTANT' 

'ZEROAXES' 

'ZLOGARITHMIC' 

'ZNEGATIVE' 

‘ZNUMERIC’ 


3D  To  indicate  that  the  Y  component  does  not  vary 
during  the  drawing  of  any  curve 
Time  series  axis  scale  in  yearly  intervals 
The  Y  axis  at  edge  of  graph 
Switch  to  pen  color  yellow 
Logarithmic  Y  plotting 

3D  Negative  Y  direction  represents  up  in  3D  graphics 
Y  axis  numeric  label 

3D  Positive  Y  direction  represents  up  in  3D  graphics 
3D  Y  coordinates  are  specified  with  respect  to  the 
current  beam/pen  position  for  the  indicated  com¬ 
ponents  X  and  Z  components  are  to  be  specified 
with  respect  tc  the  origin  of  the  current  coordinate 
system 

3D  To  indicate  that  one  set  of  Y  valves  is  provided 
which  will  be  reused  for  every  curve  in  higher  level 
graphing 

3D  To  set  the  rotation  application  order  as  indicated 

3D  Y  and  Z  coordinates  are  specified  with  respect  to 

the  origin  of  the  current  coordinate  system  tor  the 
indicated  under  X  components  are  specified  with 
respect  to  the  current  beam/pen  position 
3D  The  Y  and  Z  axes  to  be  drawn  for  higher  level 
graphing 

3D  Label  plane  to  be  plane  formed  by  Y  and  Z  axes 
The  Y  axis  adjacent  to  boundary  of  display  area 
3D  Applies  logarithmic  transformations  to  Y  and  Z 
components 

3D  Y  and  Z  coordinates  to  be  specified  with  respect  to 
the  current  beam/pen  position  for  the  Y  and  Z 
components,  and  the  X  component  to  be  specified 
with  respect  to  the  current  beam/pen  position  for 
the  Y  and  Z  components,  and  the  X  component  to 
be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

3D  To  view  the  plane  formed  by  the  Y  and  Z  axes 
3D  To  set  the  rotation  application  order  as  specified 
3D  Z  coordinates  to  be  specified  with  respect  to  the 
origin  of  the  current  coordinate  system  for  the 
indicated  component.  X  and  Y  components  are  to 
be  specified  with  respect  to  the  current  beam/pen 
position 

3D  Alphanumeric  labels  to  be  drawn  for  higher  level 
drawing 

3D  Z  axis  is  to  be  drawn  for  higher  level  graphing 
3D  Both  numeric  and  alphanumeric  labels  to  be 
drav/n  for  higher  level  drawing 
3D  Clip  in  Z  direction 

3D  To  indicate  that  the  Z  component  does  not  vary 
during  the  drawing  of  any  curve 
X  and  Y  axes  adjacent  to  boundary  of  display  area 
3D  Applies  logarithmic  transform  to  Z  component 
3D  Negative  Z  axis  represents  up  direction  in  3D 
graphics 

3D  Numeric  Z  labels  to  be  drawn  for  high  level 
graphing 
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‘ZPOSITIVE’ 

3D 

Positive  Z  axis  represents  up  direction  in  3D 
graphics 

ZRELATIVE' 

3D 

Z  coordinates  are  to  be  specified  with  respect  to 
the  current  beam/pen  position.  X  and  Y  compo¬ 
nents  are  to  be  specified  with  respect  to  the  origin 
of  the  current  coordinate  system 

ZREPEAT' 

3D 

To  indicate  that  one  set  of  Z  values  is  provided 
which  will  be  reused  for  every  curve  in  higher  level 
graphing 

‘ZXYb’ 

3D 

To  set  the  rotation  application  order  as  indicated 

'ZYXb' 

3D 

To  set  the  rotation  application  order  as  indicated 

'12HOUR' 

Twelve  hour  time  axis 

1 3WEEK' 

Thirteen  week  time  axis 

‘2DCOORDINATES' 

3D 

To  specify  A  coordinate  terminator  in  which  two 
components  are  listed.  (This  option  is  indepen¬ 
dent  of  the  text  coordinate  options  of  XYCOORDI- 
NATES'  and  'XYZCOORDINATES') 

‘24HOUR’ 

Twenty  four  time  axis 

'3DCOORDINATE' 

3D 

To  specify  a  coordinate  terminator  in  which  all 
three  components  are  listed.  (This  option  is 
independent  of  the  text  coordinate  option  of 
'XYCOORDINATES'  and  'XYZCOORDINATES') 

NOTE:  b-  is  a  blank  or  space 


GCS  DEFAULT  CONDITIONS 


This  section  addresses  those  options  which  are  present  in  the  Graphics  Status  Area  as 
default  options  Alter  a  call  to  Subroutine  USTART.  the  Graphics  Compatibility  System  is 
sot  to  the  default  conditions,  as  indicated  The  default  options  can  be  divided  into  two 
groups  Basic  Plotting  Options  and  High  Level  Plotting  Options 


I.  Default  Basic  Plotting  Options 

Plotting  is  done  in  RECTANGULAR  and  ABSOLUTE'  coordinates  on  the  SYSTEM 
coordinate  axis  The  'USER'  coordinate  axes  are  identical  to  the  system  axis  Plotting  is 
done  in  VIRTUAL'  space  with  a  virtual  window  whose  limits  are  from  0  0  to  1 00  0  in  the  X 
direction,  and  from  0  0  to  100  0  in  the  Y  direction  The  virtual  window  is  mapped  into  a 
display  area  which  is  the  largest  square  area  on  the  device  display  surface  The  right 
hand  edge  of  the  square  corresponds  to  the  right  edge  ot  the  display  surface 

Character  output  in  GCS  will  be.  by  default,  in  HARDWARE'  character  format,  of  type 
GOTHIC'  and  of  MEDIUM  size  It  SOFTWARE'  characters  are  requested  via  USE T  then 
the  default  horizontal  size  is  live  (5  01  virtual  units,  and  the  default  vertical  size  is  seven 
(7  0)  virtual  units 

By  default,  angular  units  tor  angular  specifications  are  in  DEGREES'  It  the  user 
switches  to  DEVICE'  space,  then  all  length  or  distance  units  tie  from  UPRINT  or 
UREAD).  the  data  will  be  assumed  to  be  in  TEXT'  mode  The  alphanumeric  output 
defaults  to  the  PLOT'  device  it  possible,  and  any  graphic  output  will  go  to  all  devices  in  a 
cluster  Graphic  input  is  from  the  primary  input  device,  the  number  ot  digits  of  precision 
for  numeric  output  is  four  (4).  arid  GCS  detected  errors  are  signalled  as  they  occur 

A  line  which  is  drawn  by  a  subroutine  in  GCS  is  considered  to  consist  ot  two  parts,  a  line 
type  and  a  line  terminator  The  line  type  may  be  solid  (visible),  ticcoo.  null  (invisible), 
dashed,  or  alphanumeric  The  line  may  be  terminated  by  an  arrow,  a  back  arrow,  double 
arrows,  a  character,  a  point,  a  symbol,  a  sot  of  coordinate  values,  or  nothing  at  all  The 
detault  line  type  in  GCS  is  SOLID'  with  NULL'  tormintors  CLNLILL  '  It  TICLINES'  are 
requested  via  USET  option,  then  the  default  tic  interval  is  ten  (10  0)  virtual  units  It  is  the 
user  s  responsibility  to  insure  that  the  lie  interval  is  appropriate  it  he  switches  to 
DEVICE'  space  or  alters  the  default  virtual  window  selling  or  the  default  display  area 
setting  It  DASHLINES'  are  requested,  then  the  default  dash  specification  (56)  will 
result  in  a  dashed  linn  which  is  alternately  light  and  dark,  in  increments  ot  approximately 
0  0T5  inches  It  a  CHARACTER'  line  terminator  is  requested  but  no  character  is 
specified  by  way  of  Subroutine  UPSET,  then  the  character  astensK  (*)  is  used  Similarly, 
the  asterisk  is  used  to  compose  the  line  type  it  ALPHANUMERIC  linos  are  requested 


II.  Default  High  Level  Plotting  Options 

Tor  each  call  to  UPLOT  or  UPLOT1.  the  data  values  which  represent  the  cuives  are 
examined,  and  a  'NFWSC.Al  E'  is  eroated  UAXIS  will  be  invoked  to  create  'XYAXES' 
The  data  values  will  be  examined,  and  zero  will  always  appear  somewhere  on  the  axis 
Numeric  labels  only  will  be  output  for  the  X  axis  and  the  Y  axis  The  values  which  appear 
at  the  tic  marks  on  the  axes  will  be  'neat'  numbers,  and  the  axes  will  be  positioned  at  the 
'EDGE'  of  the  plot  Both  the  X  axis  and  the  Y  axis  will  be  drawn  in  a  lineal  coordinate 
space  The  axis  lines  will  bo  ticked  It  a  time  sories  axis  is  plotted  by  invoking 
Subroutine  UT  AXIS,  the  default  interval  lor  the  X  axis  will  be  DATE '  No  curves  will  be  tit 
to  the  data  values,  but  if  TITPOLYNOMIAl  '  is  requested,  then  subroutine  UPLOT  witt 
attempt  to  fit  a  fifth  degree  polynomial  to  the  data 


III.  Summary 


COORDINATE  SPACE: 
COORDINATE  TYPE: 
COORDINATE  SYSTEM: 
COORDINATE  AXIS: 

VIRTUAL  WINDOW. 

DISPLAY  AREA 

DEVICE  SPACE  UNITS: 
ANGULAR  UNITS: 

LINE  TYPE: 

SYSTEM  CHARACTER: 

TIC  INTERVAL: 

DASH  SPECIFICATION: 
CHARACTER  TYPE: 
CHARACTER  FONT: 
CHARACTER  SIZE: 

SOFTWARE  CHARACTER  SIZE: 

INPUT/OUTPUT  FORMAT: 
ALPHANUMERIC  MARGINS: 
OUTPUT  ROUTE: 

OUTPUT  DISTRIBUTION: 
GRAPHIC  INPUT: 

DIGITS  OF  PRECISION: 

ERROR  HANDLING: 

AXIS  SCALING 
AXIS  LABELING: 

AXIS  POSITIONING: 

AXIS  TYPE: 

AXIS  EXISTENCE: 

AXIS  COORDINATES: 

TIME  SERIES  AXIS  SCALE: 


'VIRTUAL' 

ABSOLUTE' 

'RECTANGULAR' 

‘SYSTEM’ 

GOTO  100.0  X  DIRECTION 

0.0  TO  100.0  Y  DIRECTION 

Largest  square  area  which  is  right  justified  or  the 

display  surface  of  the  device. 

'INCHES' 

DEGREES 
'LINE'  or  LNULL' 
asterisk  (*) 

1 0.0  virtual  units 
56. 

'HARDWARE' 

'GOTHIC' 

'MEDIUM' 

5.0  virtual  units  horizontal 
7.0  virtual  units  vertical 
'TEXT' 

Device  display  surface  boundaries. 

PLOTDEVICE’ 

'ALLDEVICES' 

Primary  input  device 
4 

IMMEDIATE  OUTPUT' 

AUTOSCALE' 

XNUMERICLABEL' 

‘YNUMERICLABEL’ 

EDGEAXIS’ 

‘TICAXIS’ 

'XYAXP*?' 

‘NOLOGARITHMS' 

DATE' 


USET  OPTIONS  BY  CLASS 


Coordinate  Mode 

‘ABSOLUTE’ 

RELATIVE' 

XABSOLUTE’ 

■XRELATIVE’ 

XYABSOLUTE’ 

Coordinate  Type 

‘RECTANGULAR’ 

■POLAR’ 

•LOGARITHIMC 

'YLOGARITHMIC 


'INCREMENTAL' 

■XYRELATIVE’ 

■XZABSOLUTE’ 

‘XZRELATIVE’ 

'LEFTHANDED' 


'CYLINDRICAL' 
'SPHERICAL' 
'XLOGARITHMIC 
X  YLOGARITHMIC' 


'RIGHTHANDED’ 

YABSOLUTE’ 

'YRELATIVE' 

YZABSOLUTE’ 

'YZRELATIVE' 


LOGOBJECT' 

'LOGSYSTEM' 

L03USER' 

'NOLOGARITHMS' 


‘ZABSOLUTE’ 

ZRELATIVE' 


‘XYZLOGARITHMIC 

•XZLOGARITHMIC' 

'YZLOGARITHMIC' 

'ZLOGARITHMIC 
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Coordinate  Space 


‘VIRTUAL’  SPECIFIC’ 

DEVICE’  DISPLAY’ 

Device  Space  Units 

‘INCHES’ 

'CENTIMETERS’ 

‘FONTUNITS’ 

’PERCENTUNITS’ 


■RASTERUNITS' 

Angular  Units 

‘DEGREES’ 

‘GRADS’ 

‘RADIANS’ 

‘PIRADIANS’ 

Frame  Composition 

‘INVISIBLE’ 

‘VISIBLE’ 

‘MILS’ 

Line  Type 

‘LINE’ 

‘LNULL’  NOLINE’ 

‘LBACKARROW’ 

‘DASH 

‘DNULL’  ‘NOMARK’ 

^COORDINATE’ 

POINT’ 

NPOI’  'NNULL' 

‘NO  LINE’ 

‘TICLINE’ 

‘TNULL’  ‘LARROW’ 

•NO  MARK’ 

‘CHARACTER’ 

‘BACKARROWLINE'  ‘LDOUBLEARROW’ 

‘DIMENSIONLINE' 

’SYMBOL’ 

‘COORDINATELINE’  ‘MOVE’ 

’NSYMBOL’ 

‘ALPHANUMERIC’ 

'NCHA'  ‘ARROWLINE’ 

‘ANULL’ 

'DOUBLEARROWLINE' 

Lines  that  are  drawn  by  GCS  are  composed  on  a  line  type  and  a  line  terminator.  A  large 
number  ot  line  types  and  terminators  are  possible.  The  specification  is  composed  by 
combining  the  first  letter  of  the  line  type  with  the  name  of  the  terminator.  The  following 
tables  illustrate  the  possible  linetypes  and  terminators. 

LINE  TYPE  FIRST  LETTER 

LINE  L 

DASH  D 

ALPHANUMERIC  A 

NULL  (INVISIBLE)  N 

TICLINE  T 

Line  Terminators 

NULL  (NO  TERMINATORS) 

CHARACTER 

SYMBOL 

COORDINATE 

POINT 

ARROW 

BACKARROW 

DOUBLEARROW 
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Line  Repeatability 

‘UNINTERRUPTED’ 

■GAPPED’ 

Curve  Approximation 

‘CONTINUOUS’ 

‘SEGMENTED' 

Blink  Rate 

‘NOBLINK’ 

‘FASTBLINK' 

‘SLOWBLINK’ 

Color 

‘WHITE’ 

‘BLUE’ 

'BLACK' 

■RED’ 

’GREEN’ 

MAGENTA’ 

‘CYAN’ 

■YELLOW’ 

Intensity 

‘DIM’ 

■BRIGHT’ 

Coordinate  Axis 

SYSTEMAXIS’ 

'USERAXIS' 

Coordinate  Axis  Composition 

WORKINGAXIS’ 

'REFERENCE  AX  IS’ 

Character  Format 

GOTHIC’ 

’UPPERCASE’ 

■ITALIC’ 

'LOWERCASE' 

Character  Size 

SMALL’ 

'MEDIUM' 

'LARGE' 

'EXTRALARGE' 

Device  Routing 

‘PLOTDEVICE’ 

'MtSSAGEDEVICE' 


Device  Selection 


‘ALLDEVICES’ 

‘PRIMARYDEVICE’ 
‘ALTERNATE  DEVICE’ 


Graphic  Input 


‘CURSORS’ 

'KEYBOARD' 

‘LIGHTPEN’ 

‘JOYSTICK’ 

‘BALL’ 

‘MOUSE’ 


■NOECHO’ 

‘ECHO’ 

‘ORMODE’ 

'ANDMODE 

PROCEED’ 

‘WAIT’ 


Character  Type 


‘HARDWARE’ 

‘SOFTWARE’ 


Error  Conditions 

‘ERROR  OUTPUT’ 

DUMP’ 

‘NOABORT’ 

‘TRAIL’ 

‘SUFPRESSERRORS’ 

'ABEND' 

‘NODUMP’ 

‘DEFERERRORS’ 

Structure  Definition 

BUILD’ 

'NOBUILD' 

Structure  Building 

'ABORT' 

‘NOTRAIL’ 

‘EXECUTE’ 

•NOEXECUTE’ 


Structure  File  Manipulation 

‘APPEND’  ‘REPLACE’ 

‘IGNORE’  ‘REWIND’ 

MULTIPLE’  ‘SINGLE’ 

Structure  Editing 

‘COMPRESSED’ 

'EXPANDED' 

Axis  Scaling 

‘AUTOSCALE’ 

FULLSCALE' 

OWNSCALE’ 

Axis  Scale  Existence 

‘NEWSCALE’ 

OLDSCALE’ 


Segment  Pickability 


'DESENSITIZE' 

•SENSITIZE' 

Axle  Existence 

‘XY  AXES’  ‘NOAXES' 

‘XAXIS’  ‘XYZAXES’ 

YAXIS'  ‘XZAXES’ 

•YZAXES'  ‘ZAXIS’ 

Axis  Positioning 

'EDGEAXIS' 

•ZEROAXIS’ 

'PENAXIS' 

XEDGEYZEROAXIS’  ‘YEDGEXZEROAXIS’ 

•XZEROYEDGEAXIS'  'YZEROXEDGEAXIS' 

Numeric  Labels 

‘BESTFORMAT’ 

'FORMAT' 

'GFORMAT' 

Label  Positioning 

‘NEGATIVESIDE’  PERPENDICULAR-  • 
LABELS’ 

PARALLELLABELS’  'POSITI^ESIDE' 


'XYPLANE' 

'XZPLANE' 

'YPLANE' 

Axis  Type 

‘NOLOGARITHMS’ 

'XYLOGARITHM' 

'XLOGARITHM' 

•XZLOGARITHM’ 

■YLOGARITHM’ 

'LOGARITHMS' 

X  Axis  Labels 

‘XNUMERIC’ 

'X  ALPHANUMERIC’ 

XBOTHLABELS’ 

NOXLABEL’ 

YZLOGARITHM' 

ZLOGARITHM' 

Y  Axis  Labels 

‘YNUMERIC’ 

YALPHANUMERIC' 

NOYLABEL' 

YBOTHLABELS' 

Z  Axis  Label 

ZNUMERIC’ 

'ZALPHANUMERIC' 

'NOZLABEL' 

ZBOTHLABELS’ 

•XYZLOGARITHM' 


Axis  Type 


TICAXIS’ 

'PLAINAXIS' 

'GRIDAXIS' 

Three  Dimensional  Windowing 

‘SITEPOINT’ 

‘VIEWPOINT' 

Windowing 

CWINDOWING' 

NOWINDOWING' 

RWINDOWINE’ 

Text  Output 

‘NOCENTER’ 

‘ACENTER’ 

'NOSCRIPT' 

'XYZCOORDINATES' 

'XYCOORDINATES' 

'2DCOORDINATES' 

Menuing  Option 

STANDARDMENU’ 

EXTENDEDMENU’ 

Origin  Inclusion 

‘NOORIGIN’ 

ORIGIN 
‘PENORIGIN 

Device  Space  Clipping 

‘NOZCLIPPING’ 

'ZCLIP' 

High-Level  Plotting  Option 

‘NONUNIFORM' 

UNIFORM' 

Coordinate  Repeat  Option 

‘NOREPEAT’  NOZREPEAT’  'YCONSTANT'  ZREPEAT' 

NOXREPEAT'  XCONSTANT’  ‘YREPEAT’ 

NOYREPEAT'  XREPEAT'  ZCONSTANT' 

Transformation  Type 

•PERSPECTIVE’ 

ORTHOGRAPHIC' 


SUBSCRIPT'  HORIZONTAL’ 

'NOSUBSCRIPTING'  'UPPERCASE' 

SUPERSCRIPT’  'VERTICAL' 

'INTEGER'  'REAL' 

‘TEXT’ 

'3DCOORDINATES' 
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Axis  Orientation 


’XNEGATIVE’ 

‘XPOSITIVE 


‘YNEGATIVE’ 

•YPOSITIVE' 


Three  Dimension  Viewing 


‘XYVIEW’ 

‘XYZVIEW’ 


‘XZVIEW’ 

'YZVIEW' 


ZNEGATIVE’ 

‘ZPOSITIVE’ 


Rotation  Application  Order 


XYZ’ 

‘XZY’ 

‘YXZ’ 


'YZX' 

‘ZXY’ 

■ZYX’ 


Time  Axis  Scaling 

1 2Hour 
24Hour 


•YEARS’ 

’DAYS’ 


‘DATE’ 

'HOURS’ 


SECONDS’ 

PERIODIC’ 


Subroutine  USHOW 


3D 


FUNCTION: 

To  request  that  the  named  frame  be  placed  in  show  status. 
CALLING  SEQUENCE: 


CALL  USHOW  (NAME) 


Where: 

NAME  is  the  eight  character  alphanumeric  constant  or  variable  of  a  currently 
defined  frame. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  execution  of  the  subroutine  causes  the  frame  NAME  to  be  activated  on  the  face  of 
the  display  screen.  The  frame  must  have  been  previously  defined  by  a  subroutine 
UFRAME  and  subroutine  FREND  pair.  The  initial  status  of  a  frame  is  show  status 

Programming  Notes: 
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Subroutine  USPL^N 
FUNCTION: 

This  routine  fits  a  cubic  spline  curve  to  the  specified  input  data  and  returns  a  set  of  X 
and  Y  coordinates  of  data  points  which  lie  on  the  spline  curve 

CALLING  SEQUENCE: 

CALL  USPLIN  (X,Y,XN,RX,RY,RN) 

Where 

X  is  an  array  of  XN  elements  which  is  the  X  component  of  the  data  points  to  be 

fitted 

Y  is  an  array  of  XN  elements  which  is  the  Y  component  of  the  data  points  to  be 

fitted. 

XN  is  the  number  of  points  to  be  fitted 

HX  is  an  array  of  RN  elements  which  is  the  X  component  of  the  points  which 

are  returned. 

RY  is  an  array  of  RM  elements  which  is  the  Y  component  of  the  points  which 

are  returned. 

RN  is  the  number  of  points  to  be  returned  (.LE.200). 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  number  of  points  to  be  fitted  must  be  greater  than  two.  A  maximum  of  one  hundred 
data  points  may  be  fitted.  The  number  of  data  poin‘s  to  be  returned  must  be  at  least 
twice  the  number  of  input  data  points.  As  the  ratio  of  output  points  to  input  points  is 
increased,  the  resultant  spline  curve  fit  appears  smoother.  All  data  points  are  assumed 
to  be  in  rectangular  units. 

Programming  Notes: 


A 


DIMENSION  X< l 05 . Y< 1 05. RXCS05 . RYCC05 
DATA  X/I..2..3..4..S..6..7..0..0..I0./ 
DATA  Y/2..4..S..0..e.„7..B..4..3..2./ 
CALL  USTART 

CALL  UWXNDO  C0. . I0.B.0. . 10 .5) 

CALL  USET  C ' NCHARACTER * 5 

CALL  UUNE  CX.  Y.  10.5 

CALL  USPLXN  CX.  Y.  10. .  RX.RY.60.  5 

CALL  USET  C 'LINE' 5 

CALL  ULXNE  CRX.RY.S0. 5 

CALL  UEND 

STOP 


END 
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Subroutine  USTART 
FUNCTION: 

This  routine  initializes  the  Graphics  Status  Area  (GSA)  to  the  default  condition  and 
insures  that  the  terminal  is  ready  for  graphic  output. 

CALLING  SEQUENCE: 

CALL  USTART 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

This  routine  must  be  called  before  any  other  GCS  subroutine  since  the  contents  of  GSA 
are  undefined  prior  to  calling  USTART.  The  terminal  will  be  readied  for  graphics 
processing  by  erasing  the  screen  and  positioning  the  beam  at  location  (0..0.)  in  the 
default  virtual  space.  Default  conditions  are  listed  in  the  USET  and  UPSET  tables.  Other 
defaults  of  interest  are  listed  below. 

user  window  boundary  -  XMIN  =  0.0,  XMAX  =  100.0 

YMIN  =  0.0,  YMIN  =  100.0 

user  display  area  -  largest  right-justified  square  that  can  be  defined  on  the 

plotting  surface. 

margin  boundaries  -  edges  of  entire  display  surface. 

Programming  Notes: 


Subroutine  USYRCT  3D 

FUNCTION: 

This  routine  starts  construction  of  a  new  graphics  data  structure.  It  creates  the  structure 
header  and  places  GCS  in  BUILD  mode. 

CALLING  SEQUENCE: 


CALL  USTRCT(NAME) 


Where 

NAME  is  an  eight  character  data  structure  name  not  currently  used  for  this  purpose 
in  the  current  structure  file. 

OPTIONS: 

UPSETCLIBRARY',--)  must  be  specified  for  the  structure  random  file  to  be  defined. 
Structure  Construction  Visibility  Options:  ‘EXECUTE’  or  ‘NOEXECUTE’ 

COMMENTS: 

The  user  again  must  specify  a  random  file  for  the  data  structure  library.  The  structure 
name  must  be  eight  characters,  thus  blanks  must  be  put  in  by  the  user  if  the  name  is  too 
short.  If  the  user  wishes  to  display  data  not  to  be  saved  in  the  structure,  he  may  call 
USET('NOBUILD')  to  halt  data  structure  creation.  Later  on,  he  may  resume  construction 
by  calling  USET('BUILD’).  If  the  user  does  not  wish  to  view  the  construction  of  his 
structure,  he  should  specify  ‘NOEXECUTE’.  Otherwise  'EXECUTE'  is  the  default  and  he 
will  watch  his  structure  being  build. 


Programming  Notes: 


Subroutine  USTUD 


FUNCTION: 

This  routine  returns  to  the  user  the  limits  of  his  display  area 

CALLING  SEQUENCE: 

CALL  USTUD  (ARRAY) 

Where 

ARRAY  is  an  array  of  at  least  eight  words  defined  as  follows: 

ARRAY(l)  =  minimum  X  value  in  virtual  space 

ARRAY  (2)  =  maximum  X  value  in  virtual  space 

ARRAYO)  =  minimum  Y  value  in  virtual  space 

ARRAY(4)  =  maximum  Y  value  in  virtual  space 

ARRAY(5)  =  minimum  X  value  in  device  space 

ARRAY (6)  =  maximum  X  value  in  device  space  < 

ARRAY(7)  =  minimun  Y  value  in  device  space 

ARRAY (8)  =  maximum  Y  value  in  device  space 

OPTIONS: 

Device  Units:  ‘INCHES’,  ‘CENTIMETERS',  ‘PERCENT’,  ‘FONT',  'RASTER', 
‘SPECIFICATION’ 

COMMENTS: 

A  call  to  this  routine  will  return  to  the  user  the  limits  of  his  virtual  window  and  display 
area  (virtual)  or  the  limits  of  the  device  surface  and  clip  area  (device).  The  device  units 
are  in  current  units. 

Programming  Notes: 
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Subroutine  USVPN 


FUNCTION: 

This  routine  saves  the  pen-related  variables  in  the  Graphics  Status  Area  (GSA)  in  an 
array  furnished  by  the  user  This  array  will  be  suitable  for  later  use  as  input  to  UNSVPN 
to  restore  the  pen-related  variables  of  the  status  area. 

CALLING  SEQUENCE: 

CALL  USVPN  (ARRAY) 


Where: 

ARRAY  is  an  array  large  enough  to  contain  the  pen-related  variables  to  be  saved  from 
the  status  area. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  size  of  the  array  necessary  to  save  the  pen-related  variables  of  the  GSA  is 
dependent  upon  the  particular  version  of  GCS  being  used. 

Variables  to  be  saved  are  only  those  which  relate  to  the  functions  of  the  pen.  Not  saved 
are  those  variables  which  relate  to  such  items  as  alphanumeric  output,  high-level 
graphics,  dynamic  graphics,  and  data  structure  controls.  Also  not  saved  are  coordinate 
system  specifications  which  have  their  own  save  and  restore  routines  (see  USVTR  and 
UNSVTR). 

The  user  is  cautioned  that  any  modification  to  the  save  array  prior  to  its  restoration  into 
the  GSA  may  yield  indeterminate  results. 

Programming  Notes: 
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Subroutine  USVTR 
FUNCTION: 

This  routine  will  save  user  coordinate  system  transformation  status  specification  of  the 
Graphics  Status  Area  (GSA). 

CALLING  SEQUENCE: 


CALL  USVTR  (SARRAY) 


Where 

SARRAY  is  an  array  of  29  words  into  which  the  current  coordinate  system  transform  is 
stored. 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  invocation  of  this  subroutine  will  save  the  current  user  coordinate  system  in  effect 
but  will  not  alter  the  GCS  status. 


Programming  Notes: 


Subroutine  UTAXIS 
FUNCTION: 

This  routine  creates  a  set  of  axes  which  displays  time  increments  along  the  horizontal 
axis  and  numeric  values  along  the  vertical  axis.  It  will  support  scaling  and  labeling 
options  as  provided  for  UAXIS.  All  output  from  UTAXIS  will  be  contained  within  the 
currently  defined  UDAREA. 

CALLING  SEQUENCE: 

CALL  UTAXIS  (BEGPER, PERIOD, YMIN.YMAX) 


Where 

BEGPER  is  the  number  which  represents  the  beginning  time  perind  (l=first  period, 
2=second  period  etc.). 

PERIOD  indicates  the  number  of  periods  to  be  displayed. 

YMIN  is  the  minimum  Y  value  to  be  displayed. 

YMAX  is  the  maximum  Y  value  to  be  displayed. 

OPTIONS  which  may  apply: 

Axis  Labeling  Options: 


Axis  Titling  Options: 

Tic-Interval  Specification: 
Scaling  Options: 

Period  Options. 


Numeric  Precision  Option: 

COMMENTS: 

This  routine  will  provide  a  set  of  axes  similar  to  the  UAXIS  format.  However,  at  those 
locations  along  the  X  axis  where  numeric  labels  would  appear,  UTAXIS  will  provide 
suitable  labels  to  specify  those  options  set  in  the  Graphics  Status  Area.  For  a  general 
description  of  all  of  the  options  indicated  above  except  the  period  options,  see  UAXIS. 
Specific  comments  will  be  provide  below  on  deviations  from  those  general  descriptions. 

Programming  Notes: 


'NOXLABELS',  ‘XNUMERIC’,  'X ALPHANUMERIC’, 
‘XBOTHLABELS’,  'NOYLABELS',  YNUMERIC’, 

‘Y ALPHANUMERIC',  'YBOTHLABELS' 

UPSET  option  'TICX',  UPSET  option  'YLABEL' 

UPSET  option  ‘XLABEL’,  UPSET  option  ‘TICY’ 
•AUTOSCALE’,  ’FULLSCALE’,  ’OWNSCALE’ 
'MONTHS’,  'YEARS’,  'WEEKDAYS’,  ‘DAYS’,  ‘DATE’, 
‘MINUTES’,  'HOURS',  'SECONDS’,  '1  2  HOUR’  ‘24 
HOUR’,  'QUARTERS',  'PERIODIC' 

UPSET  option  ‘PRECISION’ 
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. -  u. .  „. : 


— ***** 


Period  Option*: 

The  period  options  indicate  time  divisions  which  will  be  used  to  label  the  horizontal  axis. 
The  time  periods  are  cyclical  and  will  be  repeated  as  necessary  until  the  number  of 
periods  specified  has  been  indicated. 

‘SECONDS’  Continuous  from  that  specified  in  BEGPER. 

'MINUTES’  Continuous  from  that  specified  in  BEGPER. 

‘HOURS’  Continuous  from  that  specified  in  BEGPER. 

'DAYS’  Continuous  from  that  specified  in  BEGPER. 

WEEKDAYS’  Starts  with  BEGPER,  recycles  after  ‘SATURDAY’. 

MONTHS’  Starts  with  BEGPER;  recycles  after  ‘DECEMBER’. 

'QUARTERS’  Starts  with  BEGPER;  recycles  after  ‘4THQTR’. 

‘YEARS’  Continuous  from  that  specified  in  BEGPER 

‘DATE’  Starts  with  BEGPER;  recycles  on  month  boundaries.  This  vaiue  should 

have  the  format  YYYMMDD  or  YYMMDD. 

Axis  Scaling  Option*: 

The  axis  scaling  option  will  not  be  effective  for  the  time  period  axis.  If  the  axis  labels  are 
non-numeric  (‘WEEKDAYS',  ‘MONTHS’,  or  ‘QUARTERS'),  then  the  first  period  is 
assigned  value  zero  and  the  last  petiod  has  tho  value  PERIOD-1. 


Subroutine  UTERM 


30 


FUNCTION: 

This  routine  terminates  construction  of  the  current  graphics  data  structure. 

CALLING  SEQUENCE: 

CALL  UTERM(NAME) 

Where 

NAME  is  the  eight  character  name  of  the  structure  currently  being  built. 

COMMENTS: 

This  routine  puts  a  zero  word  after  the  last  structure  element  and  places  GCS  in 
NOBUILD  mode. 

Programming  Notes: 
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Subroutine  UTILTY 


3D 


FUNCTION: 

This  routine  performs  standard  utility  functions  for  data  structure  files.  Some  options 
will  manipulate  files,  others  manipulate  structures  themselves  and  their  names. 

CALLING  SEQUENCE: 

CALL  UTILTY  (ACTION, VALUE) 

Where 

ACTION  is  a  Hollerith  character  string  which  specifies  one  of  the  following  options: 

'LOAD'  loads  library  file  from  user  sequential  file 
'SAVE'  creates  user  sequential  file  from  library  file 
'PURGE'  empties  current  structure  library  file 
'MERGE'  merges  requested  file  into  library  file 
'DELETE'  deletes  structure  from  library  file 
'RENAME'  renames  old  structure  to  new  structure  name. 

VALUE  is  a  Fortran  file  code  number  for  LOAD,SAVE,  and 

MERGE  is  a  structure  name  for  DELETE,  and  is  an  array  of  two  rows  containing  two 
structure  names  for  RENAME. 

COMMENTS: 

This  routine  provides  utility  manipulations  on  structures  and  structure  files. 

The  following  comments  apply  to  each  separate  action. 

SAVE  writes  card  image  records  to  a  user  sequential  file  of  all  structures  in  the  library. 

LOAD  reads  the  card  image  user  file  and  puts  the  information  into  data  structure  format 
in  the  random  file.  This  action  has  a  compacting  effect. 

PURGE  empties  the  current  library  file. 

MERGE  merges  the  user  card  image  file  into  the  current  structure  library.  Duplicate 
names  will  be  REPLACEd  or  IGNOREd  according  to  these  USET  options. 

DELETE  removes  a  structure  from  the  library  file. 

RENAME  will  rename  the  structure  of  the  first  name  given  with  that  of  the  second  name. 

Programming  Notes: 


Subroutine  UTSFIT 
FUNCTION: 

To  compute  an  expoentially  smoothed  forecast  of  the  input  time  series  data.  If  desired, 
the  forecast  will  be  trend  adjusted 

CALLING  SEQUENCE. 

CALL  UTSFIT(ARRAY, POINTS, FCST, ALPHA) 


Where 

ARRAY  is  a  real  array  of  size  POINTS  which  is  the  input  time  series  data. 

POINTS  is  the  number  of  input  points. 

FCST  is  a  real  array  of  size  POINTS  which  is  the  time  series  forecast  for  periods  2 

to  POINTS  +1. 

ALPHA  is  the  weighting  factor  which  determines  the  amount  of  reliance  placed 
upon  older  data.  The  selection  of  a  large  ALPHA  causes  the  system  to 
respond  rapidly  to  differences  between  the  actual  and  forecast  data. 

OPTIONS  which  may  apply: 

No  options  apply 

COMMENTS: 

The  absolute  value  of  ALPHA  must  be  less  than  or  equal  to  one  If  the  value  of  ALPHA  is 
negative,  the  forecast  will  be  trend  adjusted 

Note  that  this  routine  represents  one  of  the  basic  tools  for  time  series  analysis.  The  user 
is  urged  to  consult  a  qualified  reference  on  time  series  analysis  for  a  complete 
description  of  the  methods  involvea  in  this  routine.  Other  techniques,  such  as  base 
series  correction,  cyclic  analysis,  and  higher  order  smoothing  are  necessary  to 
synthesize  a  meaningful,  composit  forecast  The  expoential  smoothing  of  the  input  data 
is  returned  for  periods  2...N  +  1  where  N  is  the  number  of  input  time  series  periods.  The 
first  forecast  period  which  is  to  be  considered  accurate  must  be  determined  by  the  user 

Programming  Notes: 
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Subroutine  UVIEW 


3D 


FUNCTION: 

This  routine  defines  the  position  of  the  viewer  in  relation  to  the  environment  and 
specifies  his  direction  of  view 

CALLING  SEQUENCE: 

CALL  UVIEW(XVIEW,YVIEW,ZVIEW,XSITE,YSITE,ZSITE) 


Where 


XVIEW,YVIEW,ZVIEW  is  the  location  of  the  viewing  position  in  current  units. 


XSITE,  YSITE,ZSITE 

OPTIONS: 


is  the  location  of  the  site  at  which  the  viewer  is  looking  in 
current  units. 


Pen  Coordinate  Options:  see  U3PEN 

Viewing  Attitude:  UPSETCATTITUDE  , angle) 

Up  Direction:  ZPOSITIVE',  'YPOSITIVE’.  ‘XPOSITIVE  ,'ZNEGATIVE' 

YNEGATIVE',  ‘XNEGATIVE’ 

COMMENTS: 

UVIEW  sets  the  viewing  position  and  direction  in  current  units.  Changing  the  current 
unit  will  not  effect  the  viewing  position  and  direction.  The  attitude  of  the  view  is  a 
rotation  around  the  viewing  axis  (a  line  drawn  from  the  view  point  to  the  view  site).  It  is 
normally  set  so  that  the  view  will  be  horizontal.  This  is  the  default  value 
(UPSET('ATTITUDE'.O)). 


Up  Direction: 


In  creating  3-D  systems,  it  has  become  standard  Jo  consider  the  positive  Z  axis  as 
representing  the  direction  up'.  This  is  the  default  choten  by  GCS.  Should  the  user 
desire,  however,  he  may  specify  that  any  other  axis  represents  the  'up'  direction.  The 
up'  direction  refers  to  the  attitude  of  the  viewer  in  relationsn  p  to  the  coordinate  system 
of  the  environment. 


Programming  Note*: 


^  ""'T' 


fc.v' 


i  » 


CALL  ATTACH  <2. '/TEK3DEM0/SAVE, 7 . 3.0. 1ST. ? 

CA1 1  UST ART 

CALL  UPSET  C' TERMINATOR', '<'? 

CALL  USET  C 'PERCENT  UNITS'? 

CALL  USET  C' REFERENCE  COORDINATE  SYSTEM'? 

CALL  UPSET  C 'LIBRARY', I .? 

CAU-  UTILTY  C'LOAD',2. ? 

CALL  USET  C'VIEWSITE'? 

CALL  UVWPRT  CI60.? 

CALL  UWINPO  <-180., 188. ,-188., (88.? 

CALL  UP AREA  C0. , 58. ,9 . , 78 . ? 

CALL  UVIEW  C— 40 . , 288 . , 78 . , -28 . , 20 . , 8 . ? 

CALL  VILLAS 

CALL  UVIEW  C— 70. ,  — 160. ,68. ,0.  ,0.  , 18.? 

CALL  UDAREA  <68. , 1 88. .0.. 78. ? 

CALL  VILLAS 
CALL  UENP 
STOP 
END 

SUBROUTINE  VILLAS 
CALL  USET  C'XYZ  '? 

CALL  USET  C'SYSTENAXIS'? 

CALL  USET  C ' REFERENCEAXIS ' ? 

CALL  U9CALL  C-68.,28.,8., I ., I ., I .,80. ,8. ,8., 'CHURCH'? 
CALL  U3CALL  C24.,-I8.,8.. . ,88. ,-88., 8. , 'SCHOOL' ? 
CALL  U3CALL  C7a..70..0..0.7,0.7,0.7.8..0..a.. 'PIZZA'? 
CALL  U3CALL  C8.,8.,8., I ., S ., I .,8.,8.,0., 'ROAD  '? 

RETURN 


Subroutine  UVWPLN 


3D 


FUNCTION: 

This  routine  specifies  the  location  of  the  view  (projection)  plane  along  the  viewing 
vector. 

CALLING  SEQUENCE: 

CALL  UVWPLN  (DISTAN) 

Where 

DISTAN  is  the  distance  in  current  virtual  units  from  the  view  plane  measurement 
base  to  the  view  plane  as  measured  along  the  viewing  vector. 

OPTIONS  which  may  apply: 

View  Plane  Measurement  Base.  ‘VIEWPOINT’,  ‘SITEPOINT’ 

COMMENTS: 

Positive  direction  of  measurement  is  from  the  view  point  (location  of  the  viewer)  to  the 
view  site  (location  of  the  viewed  object).  The  view  plane  may  not  be  located  such  that  the 
view  point  is  between  the  view  plane  and  the  view  site.  It  can  also  not  be  located  at  the 
view  point. 

Specification  of  the  view  plane  will  effect  the  amount  of  perspective  which  will  result 
when  generating  the  image.  The  closer  the  view  (projection)  plane  to  the  view  point  and 
the  wider  (higher)  the  window  on  this  plane,  the  more  pronounced  will  be  the 
perspective.  This  routine  specifies  the  location  of  the  view  plane  relative  to  either  the 
view  point  or  the  view  site.  If  ‘VIEWPOINT’  mode  is  specified,  the  view  plane  distance  is 
measured  from  the  site  point.  All  measurements  are  along  the  viewing  vector. 
‘SITEPOINT’  is  the  default  mode. 

The  view  plane  specification  indicates  the  plane  on  which  the  window  width  and  height 
are  measured  (see  U3WNDO). 


Programming  Notes: 


CALL  ATTACH  <2. '/TEK3DEN0/SAVE, ' . 3.0. 1ST. 3 
CALL  USTART 

CALL  UPSET  C' TERMINATOR'. '<'3 

CALL  USET  C' PERCENT  UNITS'  3 

CALL  USET  C' REFERENCE  COORDINATE  SYSTEM' 3 

CALL  UPSET  C'LIBRARY'. I .3 

CALL  UTILTY  C'LOAD'. 2 . 3 

CALL  USET  <'VIEWSITE'3 

CALL  UVWPLN  CI50.3 

CALL  UWINDO  C-100 . . 103. .-I0S . . 180. 3 

CALL  UPAREA  <0 .  .  50 . .  0 . .  70 . 3 

CALL  UVIEW  <-40. .200. .70. .-20. .20. .0.3 

CALL  VILLAS 

CALL  UVWPLN  C 500.3 

CALL  UDAREA  <50. . 100. . 0.. 70. 3 

CALL  VILLAS 

CALL  UEND 

STOP 

END 

subroutine  villas 

CALL  USET  C'XYZ  '3 

CALL  USET  <'8YSTEMAXIS'3 

CALL  USET  C ' REFERENCEAXXS ' 3 

CALL  U3CALL  <-60 .. 20. .0., I .. I .. t . . 80 . .0. .0. . 'CHURCH' 3 
CALL  U3CALL  <24. .-10. .0.. I . . I . . t . . 80. .-80. .0. . 'SCHOOL'3 
CALL  U3CALL  <70. . 70. .0.  .0. 7.0. 7.0. 7.0.  .0.  .0. .  'PIZZA'3 
CALL  U3CALL  <0 . . 0 . .8. . t .. I ..I . . 0 . . 8. . 0. , 'ROAD  '3 
RETURN 
END 


Subroutine  UWAIT 
FUNCTION: 

To  wait  a  number  of  seconds 

CALLING  SEQUENCE: 


Where 


CALL  UWAIT(SECNDS) 


SECNDS  is  a  real  number  that  indicates  the  number  of  seconds. 
OPTIONS  which  may  apply: 

Communication  line  speed  UPSET  (  SPEED  , SECONDS) 

COMMENTS: 


Interactive 


The  delay  may  not  be  precisely  measured.  If  the  device  is  a  batch  device,  no  delay  will 
occur. 


Programming  Notes: 
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Subroutine  UWHERE 
FUNCTION: 

This  routine  places  in  the  arguments  the  coordinates  of  the  current  beam/pen  position  in 
current  absolute  user  units. 

CALLING  SEQUENCE: 


CALL  UWHERE  (X.Y) 


Where 

X  will  be  on  return  from  this  routine,  the  X-  or  RADIUS  coordinate  of  the 

current  beam/pen  position  in  current  absolute  user  units. 

Y  will  be  on  return  from  this  routine,  the  Y-  or  THETA  coordinate  of  the 

current  beam/pen  position  in  current  absolute  user  units. 

OPTIONS  which  may  apply: 

Pen  Coordinate  options  -  see  UPEN 

COMMENTS: 

This  routine  always  returns  the  coordinates  of  the  current  beam  position  in  ABSOLUTE 
units  since  RELATIVE  units  are  always  (0  ,0  ).  A  handy  use  for  this  routine  is  to  obtain 
the  coordinates  of  the  beam/pen  in  different  units  from  those  used  to  move  the  beam/ 
pen  to  where  it  is  located 


Programming  Notes: 


Subroutine  UWINOO 

FUNCTION: 

This  routine  defines  the  boundaries  of  the  user  window  into  virtual  space 

CALLING  SEQUENCE: 

CALL  UWINDO  (XMIN.XMAX.YMIN.YMAX) 

Where 

XMIN  is  the  left-most  window  boundary  in  current  VIRTUAL  RECTANGULAR 

units. 

XMAX  is  the  right-most  window  boundary  in  current  VIRTUAL  RECTANGULAR 
units. 

YMIN  is  the  bottom-most  boundary  in  current  VIRTUAL  RECTANGULAR  units. 

YMAX  is  the  top-most  window  boundary  in  current  VIRTUAL  RECTANGULAR 
units. 


OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

The  concept  o(  windowing  into  a  virtual  space  expands  greatly  the  capabilities  of  the 
user  It  is  this  ability  which  allows  him  to  work  in  his  own  units,  plotting  in  a  space  which 
theoretically  exists  from  minus  infinity  (largest  negative  number  of  the  computer)  to  plus 
infinity  (largest  positive  number  of  the  computer)  in  both  the  X  and  Y  directions,  but 
observing  only  that  subset  of  the  vast  space  that  is  of  interest  to  him.  The  user  defines 
the  rectangular  area  of  interest  by  calling  this  routine  (UWINDO).  The  user  can  also 
specify  a  corresponding  rectangle  on  the  physical  plotting  surface  where  any  output 
visible  in  the  virtual  user  window  will  appear.  This  area  is  called  the  user  display  area 
and  may  be  specified  by  calling  UDAREA.  The  output  in  virtual  space  is  mapped  on-to- 
one  onto  the  user  display  area  with  resulting  distortion  should  the  ratio  of  the  window  to 
the  display  area  in  the  X  direction  not  be  equal  to  that  of  the  Y  direction.  Multiple  user 
windows  may  be  superimposed  on  one  user  display  area  by  changing  the  user  window 
without  changing  the  user  display  area  Conversely  multiple  displays  may  be  created 
from  one  area  of  virtual  space  by  changing  the  user  display  area  without  changing  the 
user  window 

Subroutine  UWINDO  is  used  to  set  the  user  window  boundaries  at  the  viewplane.  An 
error  condition  will  occur  (see  Error  Appendix)  and  the  previous  setting  will  not  be 
modified  if  the  maximum  boundary  is  specified  less  than  the  minimum  boundary 

In  a  two  dimension  environment,  the  viewplane  is  set  to  be  the  default  Z  value 

Programming  Notes: 


CALL  USTART 
DO  1  I  ■  I,  0 
p/i  t  npp/SF 

BOUNDS  -  (90.  -  CI6.  m  fO.OATCJ-|» 
CALL  UWINDO  <0., BOUNDS. 0.. BOUNDS} 
CALL  UOUTLN 
CALL  DRUFIG 
I  CONTINUE 
CALL  UENO 
STOP 
END 

SUBROUTINE  DRWFIG 

CALL  UCRCLE  CG0 . . 50 . , 50 . 3 

CALL  UPLY8N  C60. .60. , 5 . ,25 . J 

C/LL  UBELL 

CALL  UPAUSE 

RETURN 

END 


Subroutine  UWLOOK  3D 

FUNCTION: 

This  routine  adjusts  both  the  virtual  window  and  the  user  display  area  to  cover  the 
portion  of  virtual  space  specified  as  input  arguments. 

CALLING  SEQUENCE: 

CALL  UWLOOK(XMIN,XMAX,YMIN,YMAX) 


Where 

XMIN  is  the  minimum  X-boundary  of  the  desired  new  window 

XMAX  is  the  maximum  X-boundary  of  the  desired  new  window 

YMIN  is  the  minimum  Y-boundary  of  the  desired  new  window 

YMAX  is  the  maximum  Y-boundary  of  the  desired  new  window 

OPTIONS  which  may  apply: 

No  options  apply. 

COMMENTS: 

Should  the  required  modification  require  extending  the  user  display  area  beyond  the 
display  surface  boundary,  an  error  condition  will  De  indicated  and  no  modification  will 
take  place. 

Programming  Notes: 
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CALL  ATTACH  <2. '/TEK3DEN0/SAVE, '.3.0.I6T. > 
r>|  |  USTART 

CALL  UPSET  < 'TERMINATOR'. '<' 5 
CALL  UPSET  C 'LIBRARY'. I .3 
CALL  UTILTY  C'LOAO'.2.> 

CALL  UWINDO  C-I00..0. 100.3 

CALL  UPAREA  C3.6.B.S.4.5.7.53 

CALL  UVIEW  C 1 00 . . -2E0 . . 80 . . 0 . . 100. .0.) 

CALL  UWLOOK  <-100. .-10. . 10. . ISO. 5 
CALL  UOUTLN 
CALL  VILLAS 

CALL  UWLOOK  C-I00..-I0. .-100. .-10. 5 

CALL  UOUTLN 

CALL  VILLAS 

CALL  UEND 

STOP 

END 

SUBROUTINE  VILLAS 
CALL  USET  C'XYZ  O 
CALL  USET  C'SYSTENAXIS'3 
CALL  USET  C 'REFERENCEAXIS ' 3 

CALL  U3CALL  C-50..20.  .0. .  I  . .  I  . .  t .  .00.  .0.  .0..  'CHURCHO 
CALL  U3CALL  <24. .-10. .0.. I ., I .. I ..00.. -00. . 0. . 'SCHOOL' 3 
CALL  U3CALL  <70.  .  70.  .0.. 0.7.0. 7.0. 7.0. . 0. . 0. .  'PIZIAO 
CALL  U3CALL  C0..0..0.. I .. t .. I . .0..0..O.. 'ROAD  '> 

RETURN 

ENP 
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Subroutine  UWRITE 


FUNCTION: 

This  subroutine  enables  the  user  to  print  information  at  the  pen  position  specified.  The 
five  (5)  options  available  to  the  user  are  'TEXT',  'REALNUMBER',  ‘INTEGERNUMBER’. 
XYZCOORDINATES',  and  XYCOORDINATES’.  The  output  characters  will  be  either 
hardware  or  software  depending  on  the  current  setting  in  the  Graphics  Status  Area. 
Margining  will  occur  with  hardware  characters  and  windowing  will  occur  with  software 
characters.  The  beam  will  be  restored  to  its  position  on  entry  to  UWRITE. 

CALLING  SEQUENCE: 


CALL  UWRITE  (X,Y,DATA) 


Where 

X  is  the  X-  or  RADIUS  coordinate  of  the  lower  left  corner  of  the  first  character 

of  the  output. 

Y  is  the  Y-  or  THET  A  coordinate  of  the  lower  left  corner  of  the  first  character 

of  the  output. 

DATA  is  a  single  variable  or  array  containing  either  real  numbers  or  a  GCS  text 

string.  The  size  of  DATA  is  variable;  it  is  a  single  variable  if 
REALNUMBER'  or  TNTBGERNUMBER'  is  specified;  it  is  a  two  word  array 
if  'XYCOORDINATES'  is  specified;  and  it  may  be  any  length  if  'TEXT'  is 
specified. 

OPTIONS  which  may  apply: 

Alphanumeric  Output  Options:  REALNUMBER',  TNTEGERNUMBER’, 

'XYCOORDINATES',  ‘TEXT’,  ‘XYZCOORDINATES’ 

Numeric  Precision  Option:  UPSET  option  'PRECISION' 

Character  Type  Options:  ‘HARDWARE’,  SOFTWARE' 

Character  Size  Options: 

for 'HARDWARE'  -  ‘SMALL’, ‘MEDIUM  , 'LARGE', 'EXTRALARGE' 

for 'SOFTWARE'  -  UPSET  options  HORIZONTAL', ‘VERTICAL’ 

Alternate  Character  Format:  ‘GOTHIC’,  'ITALIC' 

Margin  Boundaries:  (seeUMARGN) 

Window  Boundaries  (see  UWINDO) 

Coordinate  System  Options  (see  UPEN  and  UCOSYS) 

COMMENTS: 

UWRITE  is  functionally  equivalent  to  UPRINT  except  that  the  beam  is  restored  to  the 
position  it  occupied  upon  entry  to  UWRITE.  For  a  complete  description  of  all  the  options 
available  using  either  UWRITE  or  UPRINT.  see  UPRINT. 


'n  three  chmensional  qpplications,  the  text  is  positioned  at  the  point  specified  by 
X.  Y.Z VALUE,  where  ZVALUE  is  established  by  a  call  to  UPSET  with  the  ZVALUE '  option. 
For  two  dimensional  applications,  this  corresponds  to  output  being  placed  on  the  plane 
of  the  graphics  display  device 

Programming  Notes: 


THIS  IS  A  SAMPLE  LINE  OP  OUTPUT  TEXT, 


DIMENSION  COORD <27 

DATA  COORD/26., 9. 99999999E  19/ 

CALL  USTART 

CALL  UPSET  C ' TERMINATOR '7 
CALL  UPSET  C' SPEED'. 129.5 
i  UERA8E 

mi  i  (JSCT  C  '  EXTRALAR8E '  7 

CALL  UPRZNT  C9..99., 'THIS  IS  A  SAMPLE  LINE  OF  OUTPUT  TEXT;') 
CALL  USET  C'REALMUMBERO 
CALL  USET  C' ARROW '5 
CALL  UPEN  <76. ,69. 7 
CALL  U(RITE  <76. ,69.. 199.7 
CALL  USET  C 'INTE9ER' 3 
CALL  UPEN  <76. ,26. 7 
CALL  UPRINT  C75..2E. .-I234667S8. 7 
CALL  USET  C 'XY COORDINATE '7 
CALL  UPEN  <26. ,76. 7 
CALL  UWRITE  <26 . , 76 . . COORD 7 
CALL  UPEN  <1 .,26.7 
CALL  UEND 
STOP 
END 
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Subroutine  UWRIT1 
FUNCTION: 


This  routine  displays  the  data  provided  at  the  current  beam  position  in  the  tormat 
«trrn  nyiiheCi'  cCdTm  either  hardware  or  software  characters  subject  to  the  one-time 
setting  of  the  USET  option  furnished  which  only  applies  during  the  execution  of  this 
subroutine.  Upon  return  the  beam  is  positioned  at  the  location  it  held  upon  entering  ths 
suDrouti  rve. 

CALLING  SEQUENCE: 


CALL  UWRIT1  (DATA, OPTION) 


Where 

DATA 


DATA  is  a  single  variable  or  array  containing  either  real  numbers  or  a  GCS  text 
string.  The  size  of  DATA  is  variable:  it  is  a  single  variable  if 
REALNUMBER'  or  'INTEGERNUMBER'  is  specified;  it  is  a  two-word 

JS  sPecified  •*  is  a  three  word  array  if 
XYZCOORDINATES  is  specified;  and  it  may  be  any  length  if  'TEXT'  is 
specified. 

OPTION  is  a  Hollerith  string  variable  or  literal  defining  the  USET  option  to  apply 
during  the  execution  of  this  subroutine. 

OPTIONS  which  may  apply: 

Same  as  those  for  UWRITE  except  that  coordinate  system  options  do  not  apply. 

COMMENTS: 


E»bUV?R!T1  iS  equivalent  ,0  ,he  sequence  of  calling  USET  with  OPTION  calling 
UWRITE  at  the  current  beam  position  with  DATA,  and  then  calling  USET  with  the 
appropriate  options  which  would  restore  the  status  changed  by  OPTION.  UWRIT1  is 
convenient  for  producing  alphanumeric  information  at  points  being  plotted: 

Programming  Notes: 
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IRCULAR  MESSAGE 


pai  i  USTART 

CALL  UPSET  C'TERHINATOR'. 
pai  |  UASPCT  C I .  3 

CALL  USET  ('SOFTWARE  CHARACTERS' 3 
CALL  UPSET  ('HORIZONTAL  SIZE'. Z. 6) 

CALL  UPSET  < ' VERTICAL  SIZE '.3. S3 
CALL  UNOVE  (6R..S0.3 
DO  10  I  -  i,  S 

CALL  UROTAT  C4S.«CFL0ATCI-O33 
IS  CALL  UWRXT I  C'  CIRCULAR  NESSAQEj '. 'TEXT' 3 
CALL  UENP 
STOP 
END 
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Subroutine  UZWNDO 

FUNCTION: 

This  routine  specifies  the  hither  and  yon  boundary  planes  of  the  user  window  without 
altering  the  currently  specified  X  and  Y  window  boundaries 

CALLING  SEQUENCE: 


Where 


CALL  UZWNDO(ZMIN.ZMAX) 


ZM1N  is  the  hither  or  minimum  Z-boundary  of  the  new  window. 

ZMAX  is  the  yon  or  maximum  Z-boundary  of  the  new  window. 

OPTIONS  which  may  apply: 

Z  axis  clipping.  NOZCLIPPING’,  ZCLIPPING' 

COMMENTS: 


A  new  window  boundary  specification  is  set  in  which  the  new  X  and  Y  boundaries  are  the 
same  as  the  old  X  and  Y  boundaries  and  the  new  Z  boundaries  are  obtained  from  the 
input  parameters.  If  ZMAX  LT  ZMIN.  an  error  is  generated  and  no  change  is  made  in  the 
window  Clipping  on  the  Z  boundaries  will  only  occur  ,f  ZCLIPPING'  is  specified  (see 


The  arguments  of  UZWNDO  are  given  in  eye  coordinates. 

Programming  Notes: 


Subroutine  U3AREA  3D 

FUNCTION: 

This  routine  specifies  the  screen  location  within  which  the  contents  of  the  user  window 
(U3WNDO)  will  be  displayed 

CALLING  SEQUENCE: 

CALL  U3AREA(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX) 


Where 

XMIN  is  the  minimum  X  boundary  in  current  device  units  of  the  new  user  display 

area 

XMAX  is  the  maximum  X  boundary  in  current  device  units  of  the  new  user  display 
area 

YMIN  is  the  minimum  Y  boundary  in  current  device  units  of  the  new  user  display 

area 

YMAX  is  the  maximum  Y  boundary  in  current  device  units  of  the  new  user  display 
area 

ZMIN  is  the  minimum  Z  boundary  in  current  device  units  of  the  new  user  display 

area 

ZMAX  is  the  minimum  Z  boundary  in  current  device  units  of  the  new  user  display 

area 

OPTIONS  which  may  apply: 

Device  Units:  ‘INCHES’,  'CENTIMETERS',  PERCENT  UNITS',  RASTER',  FONT', 
'SPECIFICATIONS’ 


COMMENTS: 

This  routine  works  in  close  conjunction  with  U3WND0  to  define  the  mapping  to  take 
place  between  virtual  space  and  device  space.  UDAREA  defines  a  rectangular 
parallelopiped  which  is  a  subset  of  the  total  device  space.  The  six-sided  viewing  solid 
defined  by  U3WND0  and  the  current  projection  mode  (perspective  or  orthogonal)  is 
mapped  into  this  parallelopiped. 

The  units  used  to  describe  the  desired  region  of  the  display  area  are  device,  rectangular, 
absolute  units.  Any  of  the  device  units  may  be  used  (e  g.,  'INCHES’,  'CENTIMETERS', 
etc  ).  If  any  of  the  maximum  boundary  parameters  specifies  a  boundary  less  than  or 
equal  to  the  minimum  boundary  parameters,  an  error  is  generated  and  the  old  U3AREA 
specification  is  retained. 

If  a  display-device  with  only  a  2-D  address  space  is  being  utilized,  the  Z  values  are 
checked  for  validity  but  are  not  used.  The  projection  of  the  U3WNDO  onto  the  view  plana 
will  then  be  mapped  into  the  U3AREA  X  and  Y  space  of  the  screen  plane.  The  U3AREA  is 
frequently  referred  to  as  the  viewport  in  the  literature. 
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Subroutine  U3AXIS 


3D 


FUNCTION: 

This  routine  creates  a  set  of  coordinate  axes  in  3-D  space 

CALLING  SEQUENCE: 

CALL  U3AXIS(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX> 


Where 

XMIN  is  the  minimum  value  of  tl.e  X  axis 

XMAX  is  the  maximum  value  of  the  X  axis 

YMIN  is  the  minimum  value  of  the  Y  axis 

YMAX  is  the  maximum  value  of  the  Y  axis 

ZMIN  is  the  minimum  value  of  the  Z  axis 

ZMAX  is  the  maximum  value  of  the  Z  axis 

OPTIONS  which  may  apply: 

Origin  Inclusion  Options:  ‘ORIGIN’,  NOORIGIN  ,  PENORIGIN' 

View  Adjustment  Options  'XYVIEW'.  'XZVIEW',  'YZVIEW'.  ‘XYZVIEW’ 

Grid  Type  Specitications:  UPSETCGRID'.value) 

Axis  Existence  Options  'NOAXES'.  'XAXIS'.  'YAXIS'.  'ZAXIS'.  'XYAXES1,  'XZAXES' 

'YAXES',  ‘XYZAXES’ 

Axis  Scaling  Options:  ‘AUTOSCALE’,  'FULLSCALE',  'OWNSCALE' 

Coordinate  Type  Options.  ‘RECTANGULAR’,  POLAR', 'CYLINDRICAL'.  SPHERICAL' 

Logarithmic  Transforms:  ‘NOLOG’,  XLOG’,  ‘YLOG',  ZLOG'.  XYI.OG',  ‘XZLOG’, 

'YZLOG', 'LOGARITHMIC' 

Logarithmic  Application  Time.  LOGSYSTEM’.  LOGUSER'.  'LOGORIGINAL’ 

Logarithm  Base  UPSET  BASE',  'XBASE',  YBASE'.  ZBASE' 

COMMENTS: 

This  routine  is  designed  to  supercede  ihe  2-D  URAXIS  routine. 

U3AXIS  performs  all  operations  in  virtual  space.  This  means  that  all  axes  and  labels  will 
be  clipped  if  they  are  outside  of  the  viewing  pyramid.  Which  viewing  pyramid  will  be 
used  will  depend  upon  the  View  Adjustment  Options.  If  'XYZVIEW'  is  specified,  the 
current  view  will  be  used.  This  is  the  default.  If  'XYVIEW',  'XZVIEW',  or  'YZVIEW'  is 
specified,  a  viewing  vector  is  defined  which  is  at  positive  150.  along  the  axis 
perpendicular  to  the  designated  plane  The  view  site  is  defined  to  be  at  (0,0., 0.)  in 
current  units.  Note  that  UWINDO/UDAREA  modifications  will  only  occur  if  'XYZVIEW'  is 
not  specified. 

Scaling  options  allow  the  user  to  select  the  intervals  or  allow  U3AXIS  to  choose  them. 
The  Origin  Inclusion  Option  allows  the  user  to  deselect  the  forced  origin  of  the 
'AUTOSCALE'  and  'FULLSCALE'  options.  The  default,  'ORIGIN',  forces  an  origin  tor 
these  options.  NOORIGIN'  will  now  allow  the  natural  range  of  numbers  of  the  U3AXIS 


213 


input  arguments  to  determine  the  axis  range.  Note  »hat  under  the  OWNSCALE’  option, 
origins  are  never  forced.  Use  of  the  'PENORIGIN'  option  allows  the  user  to  force  the 
current  pen  position  to  be  included  in  the  axis  range. 

Grids  will  only  be  generated  in  the  view  adjustment  plane  (if  specified)  or  the  X-Y  plane  if 
XYZVIEW’  is  specified  The  type  of  line  to  be  used  can  be  user  selected  by  calling 
UPSETCGRID’.value)  where  value  is  either  0.  or  a  valid  dash  specification.  If  the  default 
value  of  0.  is  specified,  a  solid  line  will  be  used  to  create  the  grids. 

Programming  Note*: 


Subroutine  U3CALL 


3D 


FUNCTION: 

This  routine  invokes  an  already  constructed  graphics  data  structure.  The  requested 
coordinate  system  transformation  is  established, then  each  element  of  the  structure  is 
executed. 

CALLING  SEQUENCE: 

CALL  U3CALL(X,Y,ZtSX,SY,SZ,RX,RY,RZfNAME) 

Where 

X,Y,Z  are  the  coordinates  of  the  origin  of  the  structure  coordinate  system  in 

current  units. 

SX,SY,SZ  are  the  scale  factors  along  the  axes  respectively. 

RX,RY,RZ  are  the  rotation  angles  about  the  respective  axes. 

NAME  is  a  Hollerith  string  containing  the  eight-character  names  of  the  data 
structure  to  be  invoked.  This  structure  must  be  defined  in  the  current 
LIBRARY'  file. 


COMMENTS: 

The  current  coordinate  system  is  saved  prior  to  applying  the  structure  coordinate 
transformation.  Up  to  three  levels  of  recursive  calls  can  be  handled 

Programming  Notes: 


* 
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CALL  ATTACH  <8, '/TEK3DEM0/SAVE, 7 , 3. 0. 1ST. J 
CALL  USTART 

CALL  UPSET  < 7 LIBRARY7,  l .3 
CALL  UTILTY  C  'LOAD', S . > 

CALL  UPSET  C' TERMINATOR7, '<'> 

CALL  USET  <  7  VIEWDISTANCE 7 > 

CALL  UVWPRT  C  t  SB . 5 

CALL  UWINPO  <-100., 100., -100., 100.3 

CALL  UVIEV  C-40., 200. ,70. ,-20. ,20. .0.5 

CALL  VILLAP 

CALL  UEND 

STOP 

END 

SUBROUTINE  VILLAG 
CALL  USET  <7XYZ  7 5 
CALL  USET  < 'SYSTEMAXIS7  > 

CALL  USET  C  7  REPERENCEAXIS ' 5 
CALL  USET  <  7  BLACK 7  > 

CALL  U3CALL  C-S0 . , 20. . 0 . , I . , I . , 1 . , 00. , 0 . , 0 . . 7CHURCH7 > 
CALL  USET  <  'RED  '5 

CALL  USCALL  <24.,  — 18..0., I .. I ., I ., 80 . , -80 . , 0 . , 7 SCHOOL 7  3 
CALL  USET  C 'BLUE7 5 

CALL  U3CALL  <70 . . 70 . . 0 . , 0 . 7. 0 . 7. 0 . 7. 0 . . 0 . .0 . . 'PIZZA7 i 
CALL  USET  < 'BLACK7 > 

CALL  U3CALL  <B.,0.,B.,t . , I ., I . ,0 . , 0 . , 0 . , 'ROAD  7> 

RETURN 

END 


Subroutine  U3CSYS 


3D 


FUNCTION: 

This  routine  composes  a  new  user  coordinate  system  based  on  the  current  reference 
coordinate  system  using  the  input  arguments  for  translation,  scaling,  and  rotation 
operations. 

CALLING  SEQUENCE: 


CALL  U 3CS Y S (X,Y ,Z,SX,S Y ,SZ,RX,R Y ,RZ) 


Where 

X,Y/Z  the  coordinates  of  the  new  origin  in  units  of  the  old  coordinate  system. 

SX,SY,SZ  are  the  multiplicative  scale  factors  along  each  of  the  axes. 

RX,RY,RZ  indicate  the  amount  of  rotation  around  each  of  the  axes  in  current  angular 
units. 

OPTIONS. 

(Only  those  which  differ  from  SUBROUTINE  UCOSYS  are  listed) 

Rotation  Application  Order:  ‘XYZ',  'XZY\  ‘ZXY',  ‘ZYX’,  'YXZ',  'YZX'. 

COMMENTS: 

The  composition  of  user  coordinate  systems  is  a  powerful  tool  for  use  in  descrioing 
problem  pictures  in  their  own  environment.  A  full  description  of  the  use  of  this  facility  is 
available  under  UCOSYS  and  a  tutorial  is  available  in  the  primer.  In  using  this  facility  in 
three-dimensions,  only  one  additional  requirement  is  imposed  on  the  user:  specification 
of  the  order  in  which  the  rotations  will  occur.  This  is  a  result  of  the  non- 
commutativeness  of  the  rotation  operation.  To  set  the  order,  the  user  merely  specifies, 
as  a  USET  option,  the  three  characters  which  designate  the  axes  in  the  order  in  which  he 
wishes  the  rotations  to  be  applied.  The  default  setting  is  CALL  USETCZYX  ). 

The  positive  direction  of  rotation  is  counterclockwise  around  the  axis  of  rotation  when 
viewed  from  a  position  on  the  axis  of  rotation  looKing  in  the  negative  direction. 

Programming  Notes: 
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Subroutine  U3DRAW 


3D 


FUNCTION: 

This  routine  draws  a  solid  line  vector  in  3-D  space  from  the  current  pen  position  tc  the 
position  specified  by  the  input  arguments. 

CALLING  SEQUENCE: 


Where 


CALL  U3DRAW(X,Y,Z) 


X,Y,Z  are  the  coordinates  of  the  end  point  of  the  line  in  current  units. 

<  I 

OPTIONS: 

Pen  Coordinate  Options  (see  U3PEN) 

COMMENTS: 

This  routine  is  equivalent  to  using  U3PEN  with  line  option  'LNULL’.  The  current  setting 
of  the  line  option  has  no  effect  on  this  routine. 

Programming  Notes: 
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Subroutine  U3GRIN 
FUNCTION: 

This  routine  returns  the  3-0  locator  value  in  current  units  as  indicated  by  the  user. 

CALLING  SEQUENCE 


Where 


CALL  U3GRIN  (X.Y.Z.ICHAfl) 


X  is  the  X  or  radius  component  of  the  coordinates  returned 

Y  is  the  Y  or  theta  component  of  the  coordinates  returned 

Z  is  the  Z  or  rho  component  of  the  coordinates  returned 

ICHAR  is  a  Hollerith  character  returned  as  chosen  by  the  user  or  derived  from  the 

actions  of  graphics  input  device 

OPTIONS  which  may  apply: 

All  coordinate  Options:  (see  UPEN/U3PEN) 

Default  ZVALUE:  ’UPSET',  'ZVALUE 

Graphics  Input  Device.  CURSOR  , 'JOYSTICK', 'LIGHTPEN'  TABLET'  'KEYBOARD' 

FUNCTION  KEY',  MOUSE'.  ‘TRACKBALL1 

COMMENTS: 

It  only  a  2-D  locator  is  available,  the  third  component  will  be  obtained  from  the  current  Z- 
VALUE  setting 

Programming  Notes: 
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Subroutine  U3IMAG 


■  - - - 


FUNCTION: 

This  routine  applies  a  general  three-dimensional  image  transformation  to  the  indicated 
segment/*rame. 

CALLING  SECUENCE: 

CALL  U3IMAG  (X,Y,Z,SX,SY,SZ,RX,RY,RZ,SEGID) 


Where 


is  the  new  position  of  the  segment  in  current  3D  device  units. 


SX,SY,SZ  is  the  scale  factor  to  be  applied  along  each  axis  of  the  display  surface. 

RX,RY,RZ  in  the  rotation  in  current  angular  units  to  be  applied  arund  each  axis  of  the 
display  surface. 

SEGID  is  the  identifier  of  a  "retained"  segment/frame  which  was  UOPENed  for 

general  3D  image  transformation. 

OPTIONS  which  may  apply: 

Device  Units:  ‘INCHES’,  •CENTIMETERS',  'RASTERUNITS',  'FONTUNITS', 
SPECIFICATION  UNITS',  'PERCENT  UNITS' 

Specification  Unit  Size  (UPSET):  'SPECIFICATION  UNITS',  ^SPECIFICATION  UNITS', 

'YSPECIFICATlON  UNITS',  ^SPECIFICATION  UNITS’ 

Angular  Units:  ‘DEGREES’,  'RADIANS',  'PIRADIANS',  ‘GRADS',  'MILS' 

Segment  Identifier  Mode:  ‘FNAME’,  FNUMBER', 'SNAME', 'SNUMBER' 

COMMENTS: 

The  image  transformation  is  applied  in  the  oroer  X-rotation,  Y-rotation,  Z-rotation, 
scaling,  and  translation  If  the  resultant  image  should  exceed  the  display  surface 
address  space,  the  result  is  undetermined. 

Image  transformations  are  only  applied  if  supported  on  the  current  display  surface. 
Requests  for  image  transformation  will  be  ignored  if  the  display  device  does  not  support 
this  facility. 

Programming  Notes: 
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Subroutine  U3LINE  3D 

FUNCTION: 

This  routine  creates  a  line  in  3-D  space  by  connecting  an  array  of  coordinates  with  lines 
drawn  with  the  current  line  option. 

CALLING  SEQUENCE: 

CALL  U3LINE(X,Y,Z,PTS) 

Where 

X  is  an  array  of  length  PTS  containing  the  X-components  of  the  coordinates  of 

the  points  to  be  connected. 

Y  is  an  array  of  length  PTS  containing  the  Y-components  of  the  coordinates  of 

the  points  to  be  connected. 

2  is  an  array  of  length  PTS  containing  the  Z-components  of  the  coordinates  of 

the  points  to  be  connected. 

PTS  is  a  real  variable  which  specifies  the  number  of  points  to  be  connected. 

OPTIONS  which  may  apply: 

All  pen-related  options  (see  U3PEN) 

COMMENTS: 

This  routine  will  move  to  the  first  point  specified  and  then  draw  a  line  to  succeeding 
points  until  the  last  point  is  reached  The  pen  or  beam  will  be  left  at  the  last  point. 

Programming  Notea: 
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Subroutine  U3M0VE 


3D 


FUNCTION: 

This  routine  draws  an  invisible  vector  in  3-D  space  from  the  current  pen  position  to  the 
position  specified  by  the  input  arguments. 

CALLING  SEQUENCE: 


CALL  U3MOVE(X,Y,Z) 


Where 

X,Y,Z  are  the  coordinates  of  the  end  point  of  the  line  in  current  units. 

OPTIONS: 

Pen  Coordinate  Options  (see  U3PEN) 

COMMENTS: 

This  routine  is  equivalent  to  using  U3PEN  with  line  option  'NNULL'.  The  current  setting 
of  line  option  has  no  effect  on  this  routine. 

Programming  Notes: 
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Subroutine  U3PEN 


3D 


FUNCTION: 

This  routine  draws  a  3D  vector  ot  the  type  indicated  by  the  current  line  option  from  the 
current  beam  position  (vector  tail)  to  the  location  specified  by  the  arguments  (vector 
head).  The  current  beam  position  is  updated  to  point  to  the  head  of  the  vector. 

CALLING  SEQUENCE: 

CALL  U3PEN  (X,Y,Z) 


Where 


X  is  the  X  or  RADIUS  coordinate  component  of  the  head  of  the  vector  in 

current  user  units. 

Y  is  the  Y  or  THETA  coordinate  component  of  the  head  of  the  vector  in 

current  user  units. 

Z  is  the  Z  or  RHO  coordinate  component  of  the  head  of  the  vector  in  current 

user  units. 

OPTIONS  which  may  apply: 

Line  Definition  Options 
Line  Options 

Tic  Interval:  UPSETCTICINTERVAL', value) 

Tic  Mark  Size  Options:  UPSETCTICPLUS', value)  UPSETCTICMINUS', value) 

Dash  Specification:  UPSETCSETDASH'.value) 

System  Character  Setting  UPSETCMARKER', value) 

Character  Description  Options:  see  U3PRNT. 

Symbol  'Marker  Selection:  UPSETCMARKER', value)  UPSETCSYMBOL', value) 
Symboi/Marker  Size:  UPSETCSZMARKER', value) 

Coordinate  Output  Type:  '2DCOORDINATES',  '3DCOORDINATES' 

Gapped  Line  Mode:  GAPPED'.  ‘UNINTERRUPTED’ 

Mapping/Projection  Options:  ‘PERSPECTIVE’,  'ORTHOGRAPH'C' 

Pen  Coordinate  Options 

Type.  ‘RECTANGULAR’,  POLAR'.  CYLINDRICAL'.  'SPHERICAL' 

Mode:  ‘ABSOLUTE’,  'RELATIVE',  ‘XRELATIVE’,  'YRELATIVE'  'ZRELATIVE', 

XABSOLU7E',  'YA3SOLUTE',  ‘ZABSOLUTE’,  'XYRELATIVE', 
'XZRELATIVE',  'YZRELATIVE',  XYABSOLUTE’.  'XZABSOLUTE’, 
'YZABSOLUTE' 
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' 


■ . 


Space:  -VIRTUAL’, 'DEVICE' 

Device  Space  Units:  ‘PERCENT',  ‘INCHES’,  CENTIMETERS',  'RASTER', 

FONT',  'SPECIFICATION' 

Specification  Unit  Size  UPSETt'SPECIFICATION', value) 

UPSETCXSPECIFICATION’,  value) 
UPSETCYSPECIFICATION’,  value) 
UPSETCZSPECIFICATION', value) 


Coordinate  System  Selection:  ‘SYSTEM’, ‘WORLD’,  'USER',  MODELLING' 


User  Coordinate  System  Type:  REFERENCE'.  ‘WORKING’ 

Logarithmic  Transforms:  LOGARITHMIC,  ‘NOLOGARITHMS’, 

‘XLOGARITHMIC,  ‘YLOGARITHMIC, 
•ZLOGARITHMIC.  'XYLOGARITHMIC', 
'XZLOGARITHMIC.  'YZLOGARITHMIC 
'XYZLOGARITHMIC' 


Logarithm  Application  Time:  LOGOBJECT',  LOGUSER'  ‘LOGSYSTEM’ 

Logarithm  Base:  UPSETf'BASE', value),  UPSETCXBASE', value), 

UPSETCYBASE  .value).  UPSETCZBASE'.value) 


ATTRIBUTES: 

Intensity  BRIGHT',  DIM',  ‘NORMAL’, 

UPSETCBRIGHTNESS', value) 

Line  Width  ‘THIN’,  'WIDE',  UPSET('WIDTH'.value) 

COMMENTS: 

U3PEN  is  the  central  pen/beam  movement  subroutine  of  the  three  dimensional  version 
of  GCS  Not  only  is  it  called  frequently  by  users  in  creating  graphics  images,  it  is  also 
used  extensively  within  the  higher-level  GCS  routines 

To  provide  its  power  and  flexibility,  a  large  number  of  USET  and  UPSET  options  .nay 
effect  any  particular  call  to  U3PEN.  However,  this  should  not  be  a  concern  for  the  less- 
experienced  user  since  the  defaults  for  these  options  will  produce  the  effect  he  mos* 
likely  desires,  thus  relieving  him  of  the  requirement  to  set  any  options  but  those  which 
apply  to  this  specific  program. 

These  options  have  been  classified  into  several  major  categories,  each  of  which  will  be 
explained  in  detail.  The  visible  output  from  U3PEN  will  also  be  effected  by  the  viewing 
env./onment  if  plotting  is  occurring  in  virtual  space  A  full  description  of  the  concepts  of( 
the  viewing  environment  can  be  found  under  UVIEW  and  UWINDO 

Programming  Notes: 
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LINE  DEFINITION  OPTIONS: 


This  options  apply  to  o^ly  the  physical  aspects  of  the  lines  created  by  U3PEN.  Attributes 
which  apply  to  both  lines  and  characters  are  describea  under  Attributes 

LINE  OPTIONS: 

The  40  available  line  options  can  be  easily  remembered  if  each  is  divided  into  its  two 
component  parts,  the  line  type  and  the  terminator  type.  The  following  table  lists  the 
available  line  and  terminator  types.  Any  line  type  may  be  combined  with  any  terminator 
type  to  create  a  particular  line  option.  This  is  done  by  prefixing  the  name  of  *he 
terminator  with  the  first  character  of  the  name  of  the  line  type.  For  example,  to  create  a 
dashed  arrow  the  first  character  of  the  lire  type  "dashed’’  is  “D".  This  letter  is  affixed  to 
the  word  "arrow"  (the  name  of  the  terminator)  and  the  resulting  IJSET  line  option  is 
“DARROW”.  A  ticked  arrow  would  result  if  a  “T”  was  substituted  for  the  “D”  to  yield 
“TARROW"  Calling  UPEN  with  line  option  "NNULL”  will  yield  identical  results  to  calling 
UMOVE.  Examples  of  the  different  line  options  are  shown  in  Figure  1. 


Line  Type 

Terminator  Type 

Null 

NULL  (absence  of  a  terminator) 

Line 

POINT 

Dashed 

ARROW 

Ticked 

BACKARROW 

Alpha 

CHARACTER 

SYMBOL 

COORDINATES' 

Also  available  for  the  convenience  of  the  user  are  synonyms  for  the  most  frequently 
selected  line  option.  A  table  of  these  synonyms  with  their  corresponding  line/terminator 
specifications  is  included  below: 


Synonym 


Line/Terminator  Equivalent 


ALPHAUNE 

ARROW 

BACKARROW 

CHARACTER 

DASH 

DIMENSIONLINE 

DOUBLEARROW 

LINE 

MOVE 

NO  LINE 

NO  MARK 

NOMARK 

NOLINE 

PENDOWN 

PENUP 

POINT 

SYMBOL 

TICLINE 


ANULL 

LARROW 

LBACKARROW 

NCHARACTER 

DNULL 

LDOUBLEARROW 

LDOU0LEARROW 

LNULL 

NNULL 

NNULL 

NNULL 

NNULL 

NNULL 

LNULL 

NNULL 

NPOINT 

NSYMBOL 

TNULL 


Several  other  options  may  effect  the  appearance  of  some  line  options  These  are  tic- 
interval  settings,  dash  specifications  and  system  character  settings.  Each  of  these  is 
described  in  more  detail  below 


TIC-INTERVAL  SETTINGS: 

The  tic  interval  to  be  used  when  drawing  ticked  lines  can  be  set  by  the  UPSET  option 


"TICINTERVAL"  The  UPSET  parameter  value  should  be  the  distance  between  tic  values 
in  current  user  units  (see  Pen  Coordinate  Options  below )  The  user  is  cautioned  that  if 
he  changes  his  space  from  device  to  virtual  or  visa  versa  then  this  may  invalidate  his  tic- 
interval  setting  Figure  2  shows  the  use  of  the  "TICINTERVAL"  UPSET  parameter 

TIC  MARK  SIZE  OPTIONS: 

The  size  of  the  individual  tic  marks  may  be  specified  CCS  allows  the  tic  marks  to  be  of 
different  sizes  on  each  side  of  the  line.  If  the  line  along  which  the  tic  marks  are  drawn  is 
considered  to  be  an  X-axis  and  is  rotated  about  its  tail  in  the  XV  plane  When  viewed 
from  the  positive  Z-direction,  the  side  towards  positive  angles  of  rotation  is  considered 
the  'TICPLUS'  side  and  the  side  towards  negative  angles  of  rotation  is  considered  the 
'TICMINUS'  side  For  2D  applications,  the  TICPLUS'  side  is  in  the  positive  V  direction 
and  the  TICMINUS'  side  is  towards  the  negative  Y  direction  if  the  line  is  considered  to  be 
an  X-axis  The  tic  mark  sizes  may  then  be  set  by  the  following  UPSET  options: 

UPSET  ('TIC  PLUS ’.value'  -  The  'TICPLUS'  size  is  set  to  the  length  value  specified  iri 

current  units 

UPSETCTICMINUS', value)  —  The  TICMINUS'  size  is  set  to  the  length  value  specificed  in 

current  units 


CASH  SPECIFICATION: 

The  dash  line  specification  which  UPEN  will  use  can  be  adjusted  to  produce  a  wide 
variety  of  dashed  lines  This  adiustment  is  made  by  the  UPSET  option  'SETDASH'  where 
the  parameter  value  is  a  number  which  aefines  the  dashed  line  as  follows.  Single  digits 
allow  selection  of  hardware-generated  dashed  lines  if  that  capability  exists.  The  digits 
1-8  will  produce  up  to  8  different  dashed  lines  depending  on  the  capability  of  the 
hardware.  The  digit  9  will  produce  a  hardware-dotted  line.  Should  hardware  dashed 
lines  not  be  available  on  the  terminal  being  used,  a  default  software  dashed  line  will  be 
generated 

Software  dashed  line  specifications  consist  a  floating  print  number,  made  of  two  cr  more 
digits  which  are  evaluated  left  to  right,  digit  by  digit.  Each  digit  represents  a  line  segment 
which  is  either  visible  or  invisible  of  varying  length  as  specified  in  the  following  table. 


Digit 


Length  (inches) 


Visibility 


1 

2 

3 

4 

5 

6 

7 

8 
9 


0366 

.0366 

.0733 

.0733 

.1831 

.1831 

.3662 

3662 

.0073  (dot) 


Visible 

Invisible 

Visible 

Invisible 

Visible 

Invisible 

Visible 

Invisible 

Visible 


When  the  entire  integer  has  been  evaluated,  scanning  restarts  at  the  left  most  digit.  For 
example,  dash  code  34.  will  result  in  a  visible  line  of  .0733  inches  followed  by  an 
invisible  line  of  .0733  inches  followed  by  a  visible  line  of  .0733  inches,  etc.,  continuing 
until  the  head  of  the  vector  is  reached.  The  last  segment  may  he  a  shortened  '  isible  or 
invisible  segment  If,  however,  the  next  UPEN  movement  is  a  dashed  line  starting  at  the 
head  of  the  previous  vector,  the  last  segment  of  this  previous  vector  will  be  completeo 
and  the  sequence  continued  for  the  new  vector. 


The  complexity  of  the  dashed  line  specification  is  limited  only  by  the  number  of  digits  of 
precision  available  in  the  computer  floating  point  numbers  Moreover,  visible  line 
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segments  need  not  be  alternated  with  invisible  line  segments  Visible  line  segments  may 
be  combined  wth  other  visible  line  segments  to  create  line  segments  of  length  not 
available  througn  single  digits.  Similarly,  this  applies  to  invisible  line  segments. 

SYSTEM  CHARACTER  SETTING: 


The  system  character  is  used  to  create  ALPHA  'ines  and  to  indicate  which  character 
should  be  used  to  terminate  UPEN  operations  when  the  line  option  specifies  the 
'CHARACTER'  terminator  The  system  character  may  be  set  by  a  call  to  USET  where  the 
argument  is  the  single  character  to  become  ‘ne  system  character  For  example  the 
following  statement  would  set  the  system  character  to  the  dollar  sign: 

CALL  UPSET  CCHARACTERVS') 

Should  it  also  be  disired  to  change  the  line  type  as  well  as  the  system  character,  the 
character  to  be  specified  in  the  USET  argument  may  be  prefixed  witn  one  of  the  five 
available  line  types.  The  following  statement  would  change  the  system  character  to 
and  would  also  change  the  line  option  to  ‘DCHARACTER': 

CALL  USET  CD  +  ') 

The  default  system  character  is  the  asterisk  (*). 

Also  to  be  considered  is  the  case  in  which  CCS  is  set  at  the  time  the  system  character  is 
set.  The  default  case  is  UPPERCASE  However,  if  calls  to  UPRINT  have  left  GCS  in 
LOWERCASE  mode,  any  attept  to  set  the  system  character  will  generate  a  lower  case 
character  The  desired  case  may  be  set  by  using  one  of  the  following 

CALL  USETCUPPERCASE) 

CALL  USET('LOWERCASE') 

See  UPRINT  for  a  complete  description  of  case  shifting. 

CHARACTER  TERMINATOR: 

The  character  terminator  which  can  be  attached  to  any  of  the  line  types  will  appear  as 
either  a  hardware  character,  a  simulated  hardware  character,  or  a  software  character 
depending  on  the  current  user  setting  of  HARDWARE',  'SIMULATED'  or  'SOFTWARE'. 
Hardware  characters  and  simulated  hardware  characters  will  have  their  lower-left 
corner  on  the  head  of  the  vector.  Software  characters  will  have  the  head  of  the  vector  at 
the  center  of  the  character.  The  appearance  of  hardware,  simulated  hardware,  or 
software  characters  may  be  affected  by  the  setting  of  the  italicization  and  character  font 
option  if  the  feature  is  available  and  has  been  implemented.  Regardless  to  which  type  of 
c,hf/ac'er 's  specified,  at  the  end  of  the  UPEN  operation,  the  beam  on  pen  will  be  located 
at  the  head  of  the  vector  See  U3PRNT  for  a  more  detailed  description  of  the  character 


CHARACTER  DESCRIPTION  OPTIONS: 

The  character  description  options  are  fully  described  in  U3PRNT.  Most  character 
description  options  apply  when  using  character  or  coordinate  line  terminators. 

SYMBOL/MARKER  TERMINATOR: 

The  symbol  terminator  is  available  so  that  the  location  of  the  head  of  each  line  may  be 
uniquely  marked  There  are  two  types  of  symbols  The  first  ty^e  are  GCS-defined 
symbols.  The  second  type  are  installation-defined  or  device-defined  symbols  The 
symbol  is  always  displayed  centered  at  the  head  of  the  line  and  the  resulting  beam  'pen 
position  is  at  the  haad  of  the  line  Should  a  marker  protrude  over  a  display  surface  edge 
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or  the  edge  of  a  window,  the  results  are  undefined  (i.e.,  the  marker  may  be  partially 
slipped  or  may  wraparound). 

SYMBOL/MARKER  SELECTION: 

Symbols  are  selected  by  UPSET(  MARKER', index)  or  UPSETt  SYMBOL', index)  where 
index  is  a  non-negative  real  number  whose  integer  value  is  used  to  select  the  symbol. 
Specifications  of  an  index  outside  of  the  range  of  valid  indecies  will  produce  symbol  X. 

SYMBOL/MARKER  SIZE: 

The  size  of  symbols/markers  may  be  specified  by  UPSETCSZMARKER', value)  where 
value  is  a  positive  number  in  current  device  units  Markers  generated  by  hardware 
symbol  generators  may  be  restricted  as  to  size  variations.  If  so,  the  closest  size  (perhaps 
the  only  size)  will  be  used. 

COORDINATE  TERMINATORS: 

The  coordinate  terminators  will  generate  a  set  of  coordintes  equivalent  to  the  location 
value  of  the  head  of  the  vector  in  current  user  units  enclosed  in  parentheses  and 
separated  by  a  comma.  The  result  will  be  in  the  same  format  as  if  the  coordinates  had 
been  produced  by  a  call  to  UPRINT  For  a  more  complete  discussion  of  this  format  see 
UPRINT 

COORDINATE  OUTPUT  TYPE: 

The  dimensionality  of  coordinate  output  is  determined  by  the  setting  of  the  USET  options 
'2DCOORDINATES'  and  '3DCOORD',NATES'  If  '2DCOORDINATES'  are  specified,  then 
only  the  (X,Y)  or  (R, THETA)  components  are  displayed  With  '3DCOORDI  NATES',  all 
three  coordinate  components  are  displayed. 

GAPPED  LINE  MODE: 

If  GAPPED'  lines  ate  specified,  successfive  calls  to  U3PEN  will  alternate  drawing  lines 
of  the  current  line  option  with  'NNULL'  (invisible)  lines.  This  feature  can  be  deactivated 
by  specifying  'UNINTERRUPTED'  lines  which  are  the  default. 

MAPPING/PROJECTION  OPTIONS. 

The  user  may  specify  the  type  of  mapping  to  be  applied  in  projecting  three-dimensional 
lines  onto  the  viewport.  The  two  available  mapping  are  ORTHOGRAPHIC'  in  which  the 
lines  of  projection  are  parallel  and  perpendicular  to  the  projection  plane,  and 
'PERSPECTIVE'  in  which  line  length  diminishes  as  the  distances  from  the  viewing 
position  (view  point)  becomes  greater.  PERSPECTIVE'  is  the  default.  The  difference 
between  these  two  options  is  shown  in  Figure  9. 

PEN  COORDINATE  OPTIONS: 

The  GCS  Pen  Coordinate  Options  have  been  designed  to  provide  the  flexibility  which  will 
allow  the  user  to  work  in  his  own  coordinate  type  and  unit  while  retaining  the  simplicity 
of  operation  and  specification  which  the  infrequent  and/or  unsophisticated  user  will  find 
convenient.  Thus,  the  Pen  Coordinate  Options  have  been  divided  into  several  classes 
each  of  which  allows  setting  of  its  options  completely  independently  of  any  effect  on  any 
of  the  others  The  following  paragraphs  will  discuss  each  class  in  detail. 

COORDINATE  TYPE: 

This  indicates  the  kind  of  coordinates  the  user  will  specify  and  how  they  will  be 
interpreted  for  display 


‘RECTANGULAR 


-  Coordinates  are  of  the  standard  forms  (X,Y)  or  (X,Y,Z) 
where  X  is  the  number  of  units  along  the  X-axis,  Y  is  the 
number  of  units  along  the  Y-axis,  and  Z  is  the  number  of 
units  along  the  Z-axis.  This  is  the  standard  default. 

POLAR',  'CYLINDRICAL'  -  Coordinates  are  of  the  forms  (R, THETA)  or  (R, THETA, Z) 

where  R  is  the  number  of  units  of  radius  in  the  XY- 
plane,  THETA  is  the  number  of  angular  units  from  the  X- 
axis  in  the  XY-plane,  and  Z  is  the  number  of  units  along 
the  Z-axis.  (See  UARC  for  a  description  of  angular 
units.) 

‘SPHERICAL’  —  Coordinates  are  of  the  form  (RHO.  THETA,  PHI)  where 

RHO  is  the  number  of  units  of  radius,  THETA  is  the 
number  of  angular  units  from  the  X-axis  around  the  Z- 
axis  in  the  XY-plane,  and  PHI  is  the  number  of  angular 
units  from  the  t'-axis  around  the  X-axis. 

COORDINATE  MODE: 

This  indicates  where  the  base  point  or  origin  of  the  coordinate  units  is  located.  Since  the 

conversion  from  relative  to  absolute  occurs  first,  the  (X,Y,Z)  components  described 

below  may  be  (R, THETA, Z)  or  (RHO, THETA, PHI)  components  if  the  user  has  specified  a 

coordinate  which  is  not  rectangular. 

‘ABSOLUTE’  —  All  coordinate  components  are  indicated  based  on 

the  origin  of  the  current  coordinate  system.  This  is 
the  default  case 

‘RELATIVE’  —  All  coordinates  are  indicated  with  respect  to  the  cur¬ 

rent  beani/pen  position.  At  the  completion  of  any 
beam/pen  movement,  the  beam  will  be  at  relative 
coordinates  (0,0,0). 

‘XABSOLUTE’,  ’YZRELATIVE’  —  The  X-component  is  absolute  and  the  Y-  and  Z-com- 

ponents  are  relative. 

'YABSOLUTE',  'XZRELATIVE'  —  The  Y-component  is  absolute  and  the  X-  and  Z-com- 

ponents  are  relative. 

ZABSOLUTE’,  'XYRELATIVE'  —  The  Z-component  is  absolute  and  the  X-  and  Y-com- 

ponents  are  relative. 

XRELATIVE’,  YZABSCLURE'  —  The  X-component  is  relative  and  the  Y-  and  Z-com- 

penents  are  absolute. 

'YRELATIVE',  'XZABSOLUTE'  —  The  Y-component  is  relative  and  the  X-  and  Z-com 

ponents  are  absolute. 

'ZRELATIVE',  'XYABSOLUTE  —  The  Z-component  is  relative  and  the  X-  and  Y-com- 

ponents  are  relative. 

NCTE  Use  of  relative  coordinates  will  not  necessarily  generate  device  com¬ 
mands  using  relative  coordinates. 

COORDINATE  SPACE: 

This  indicates  the  address  space  to  which  the  coordinates  refer 
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I 

The  coordinates  indicate  a  point  in  virtual  space.  Whether 
this  point  is  visible  on  the  display  surface  will  depend  on 
the  current  viewing  environment  (for  a  complete  discus¬ 
sion  of  the  viewing  environment,  see  UVIEW  and  UWIN- 
00).  For  2-D  applications,  only  the  UWINDO  settings 
need  be  considered  These  coordinates  can  encompass 
any  of  the  real  numbers  within  the  capbilities  of  the 
computer  system.  No  meaning  is  attached  to  these 
numbers  by  GCS:  therefore  the  user  is  free  to  assign 
whatever  meaning  he  desires  to  the  numbers. 

The  coordinates  indicate  a  point  on  the  'DISPLAY’ 
physical  device  surface.  Specification  of  points  not  on  the 
display  surface  may  yield  indeterminate  and/or  spurious 
results  Since  the  lower  left  front  corner  of  the  display 
surface  always  has  address  (0.0,0).  all  negative  coordi¬ 
nates  may  yield  spurious  results.  The  units  which  these 
numbers  represent  are  described  in  the  next  paragraph 

DEVICE  SPACE  UNITS: 


‘VIRTUAL’ 


DEVICE’ 


This  indicates  the  interpretation  to  be  given  to  the  numbers  used  in  plotting  in  DEVICE' 
space  (see  previous  paragraph).  These  options  have  no  meaning  and  are  not  considered 
when  plotting  in  'VIRTUAL'  space 


INCHES’ 


'CENTIMETERS’ 


RASTER  UNITS’ 


•FONTUNITS’ 


PERCENTUNITS 


—  The  coordinate  values  refer  to  actual  inches  on  the 
display  surface.  This  will  be  true  regardless  of  the  device 
being  used  These  units  are  device-dependant  since  the 
size  of  the  display  surface  can  vary  from  device  to  device 

—  The  coordinate  values  refer  to  actual  centimeters  on  the 
display  surface.  This  will  be  true  regardless  of  the  device 
being  used  These  units  are  device-dependent  since  the 
size  of  the  display  surface  can  vary  from  device  to  device. 

—  The  coordinate  values  refer  to  the  individual  addressable 
positions  on  any  particular  device  These  units  are 
device-dependant  and  may  not  be  transferable  to  other 
terminal  devices  since  the  size  of  the  device  address 
space  may  vary  from  device  to  device. 

—  The  coordinate  values  refer  to  the  lower  left  front  corner  of 
individual  character  positions  The  size  of  a  character 
position  is  dependent  upon  the  current  size  of  ti:e 
hardware,  simulated  hardware,  or  software  characters 
(whichever  is  currently  selected)  It  should  be  noted  that 
these  units  need  not  be  integers.  On  most  terminals, 
characters  can  be  placed  anywhere  on  the  display 
surface  These  units  are  device-dependent  since  the  size 
of  hardware  characters  and  the  size  of  the  display  surface 
can  vary  from  device  to  device  For  a  complete  descrip¬ 
tion  of  hardware,  simulated  hardware,  and  software 
characters,  see  U3PRNT. 

—  The  coordinate  values  refer  to  hundredth  increments  of 
the  display  surface  address  space  This  is  truly  a  device¬ 
dependent  unit.  Moving  an  image  created  on  one  device 
in  'PERCENTUNITS'  to  another  device  will  display  an 
image  using  the  same  proportional  amount  of  the  display 
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surface.  It  should  be  noted  that  if  a  device  does  not  have  a 
square  display  surface  (aspect  ratio  =  1),  the  value  o‘  a 
‘PERCENTUNIT’  in  the  X-direction  will  differ  from  the 
value  of  a  ‘PERCENTUNIT'  in  the  Y-direction.  See 
UASPCT  for  a  description  of  the  effect  on  ‘FERCEN- 
TUNITS'  of  setting  the  aspect  ratio  of  the  display  surface. 

‘SPECIFICATION’  UNITS'  —  The  coordinate  values  refer  to  user-specified  increments 

of  the  display  surface  address  space.  These  units  are 
device-dependent  and  function  similarly  to  the  PERCEN- 
TUNSTS’  described  above.  ‘SPECIFICATION  UNITS’  are 
defined  as  described  in  the  next  paragraph  Setting  the 
SPECIFICATIONUNITS'  to  100.  in  each  direction  results 
in  ‘SPECIFICATIONUNITS'  which  are  identical  to  ‘PER- 
CENTUNITS’.  The  default  units  are  1000,  along  each 
display  surface  address  space  axis. 

SPECIFICATION  UNIT  SIZE. 

The  number  of  specification  units  which  occupy  the  display  address  space  may  be  set 

by  the  following  UPSET  options.  The  default  for  each  is  1000  units. 

UPSETCSPECIFICATIONUNITS', value)  -  This  sets  the  number  of  specification  units 

along  each  axis  of  the  display  surface  to  the 
value  specified. 

UPSETCXSPECinCATIONUNITS  , value)  —  This  sets  the  number  of  specification  units 

along  the  X-axis  of  the  display  surface  to  the 
value  specified.  The  number  of  units  along 
the  Y-  and  Z-  axis  remain  uneffected. 

UPSET('YSPECIFICATIONUNITS’.value)  —  This  sets  the  number  of  specification  units 

along  the  Y-axis  of  the  display  surface  to 
the  value  specified  The  number  of  units 
along  the  X-  and  Z-axis  remain  uneffected. 

UPSET('ZSPECIFICATIONUNiTS',value)  —  This  sets  the  number  of  specification  units 

along  the  Z-axis  of  the  display  surface  to  the 
value  specified.  The  number  of  units  along 
the  X-  and  Y-axis  remain  uneffected 


COORDINATE  SYSTEM: 

There  are  two  types  of  coordinate  systems  avai'able  in  GCS  Cne  of  these,  the  SYSTEM 
or  ‘WORLD’  coordinate  system,  is  defined  by  GCS  The  other,  the  USER'  or 
'MODELLING'  coordinate  system,  is  defined  by  the  user  The  USER'  coordinate  system 
is  defined  based  on  the  ‘WORLD’  coordinate  system  or  on  other  ‘USER’  coordinate 
systems.  The  ‘USER1  coordinate  system  can  be  cumulative  or  non-cumulative 
depending  on  whether  the  ‘USER1  coordinate  system  being  created  is  to  be  a  new 
‘REFERENCE’  system  or  is  to  be  a  WORKING'  system  respectively  See  U3CSYS  and 
UCOSYS  for  a  complete  description  of  the  USER  coordinate  system  facility  While 
USER'  coordinate  systems  may  be  applied  in  DEVICE  space,  the  user  is  warned  that  a 
'USER'  coordinate  system  constructed  in  one  coordinate  space  may  not  be  correct  if 
used  in  the  other  space 

SYSTEM  ,  WORLD  —  If  in  'DEVICE'  space.  GCS  defines  this  coordinate  system 

to  refer  to  the  unrotated,  unsealed  system  inherent  in  the 
display  surface  addressing  scheme  This  normally  placer, 
the  origin  at  the  lower  left  front  corner  cf  the  display 
surface  If  in  'VIRTUAL'  space,  this  coordinate  system  is 
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unrotated  with  the  origin  iocateo  in  virtual  space  at  a 
position  represented  the  computer  system  real  numbers 
(0..0..0.) .  The  'SYSTEM'  or  ‘WORLD’  coordinate  system  is 
the  default  setting.  The  'WORLD'  coordinate  system  may 
be  USET  to  be  either  'LEFTHANDED'  or  'RIGHTHANDED' 
Default  is  'RIGHTHANDED'. 

USER,  MODELLING  —  The  user  may  define  his  own  coordinate  system  based  on 

the  currently  specified  coordinate  system  whether  it  be 
'SYSTEM'  or  'USER'.  The  default  'USER'  coordinate 
systems  are  identical  to  the  'SYSTEM'  coordinate  system. 
GCS  maintains  two  USER'  coordinate  system:  a  'REFER¬ 
ENCE'  system  and  a  WORKING'  system.  These  are 
defined  below. 

USER  COORDINATE  SYSTEM  TYPE: 

This  specifies  which  of  the  two  GCS-maintained  'USER'  coordinate  systems  are  to  bo 


—  This  selects  the  REFERENCE'  user  coordinate  system 
The  effect  of  creating  a  new  REFERENCE'  system  is 
cumulative  as  it  is  based  on  the  previous  'REFERENCE' 
system.  See  UCOSYS  and  U3CSYS  for  details.  This 
sotting  has  no  effect  when  using  the  'SYSTEM'  coordinate 
system 

—  This  selects  the  WORKING  user  coordinate  system.  The 
effect  of  creating  a  new  WORKING'  system  is  non- 
cumulative  as  it  is  based  on  the  current  REFERENCE’ 
system.  See  UCOSYS  and  U3CSYS  for  details. 

LOGARITHMIC  SCALING: 

This  option  allows  the  application  of  a  logarithmic  scale  factor  along  any  of  the 
coordinate  components.  Any  logarithmic  base  is  supported  and  may  be  individually 
selected  for  each  component  (see  below)  Note  that  if  the  coodinate  type  is  other  than 
'RECTANGULAR',  the  logarithmic  scale  factor  may  be  applied  to  the  angular  unit 
components  if  desired  (eg.,  'YLOGAPITHMIC'  would  apply  this  factor  to  the  THETA 
component  of  'CYLINDRICAL'  or  'POLAR'  coordinates).  See  the  Logarithmic  Application 
Time  options  described  below. 

Application  of  a  logarithmic  scale  factor  will  modify  (he  size  of  the  plot  in  relation  to  he 
window  since  the  window  is  now  looking  at  exponents  rather  than  actual  values.  This 
may  be  adjusted  for  by  some  of  the  higher-level  graphing  routines  (see  U3AXIS). 


-  A  logarithmic  scale  factor  is  applied  along  each 
component 

-  Logarithmic  scaling  is  disabled  This  is  the  default. 

-  The  appropriate  logarithmic  scale  factor  is  applied  to  (he 
component  indicated.  Other  components  remain  linear. 
2-D  applications  should  use  X  YLOGARITHMIC'  to  avoid 
conflicts  with  the  default  Z-value  of  0. 
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'LOGARITHMIC' 

‘X  YZi.OGARITHMIC' 

NOLOGARITHMS’ 

'XLOGARITHMIC' 

'YLOGARITHMIC' 

'ZLCGARITHMIC 

XYLOGARITHMIC 

'XZLOGARITHMIC 

‘YZLOGARITHMIC 


'REFERENCE' 


'WORKING' 


LOGARITHM  APPLICATION  TIME: 


The  effect  of  logarithmic  scaling  is  dependent  upong  the  state  of  the  coordinates  at  the 
time  the  scaling  is  applied.  Three  options  allow  the  user  to  direct  the  time  at  which  the 
scaling  is  applied  as  follows: 

‘LOGOBJECT  —  Logarithmic  scaling  is  applied  to  the  coordinates  provided 

oy  the  user  after  conversion  to  'ABSOLUTE'  but  pi  ior  to 
any  other  transformations.  In  this  mode,  log  scaling  may 
be  applied  to  the  angle  and/or  radius  components  of 
'CYLINDRICAL',  'POLAR',  or  SPHERICAL'  coordinates. 


‘LOGUSER’ 

‘LOGMODELLING’ 


'LOGSYSTEM' 

'LOGWORLD' 


—  Logarithmic  scaling  is  applied  after  conversion  to 
'ABSOLUTE',  'RECTANGULAR',  'USER'  coordinates  but 
before  conversion  to  'SYSTEM'  coordinates.  In  this  mode, 
logarithmic  scaling  will  be  applied  along  the  current 
'USER'  coordinate  system  axes  if  'USER'  >s  specified.  If 
‘SYSTEM’  is  specified,  LOGUSER'  is  equivalent  to 
'LOGSYSTEM'. 

—  Logarithmic  scaling  is  applied  after  conversion  to 
'SYSTEM'  coordinates  In  this  mode,  the  logarithmic 
scaling  will  be  applied  along  the  'SYSTEM'  coordinate 
system  axes.  This  is  the  default  mode. 


LOGARITHM  BASE: 

The  base  to  be  used  for  logarithmic  scaling  can  be  selected  for  all  coordinate 
components  or  individually  for  each  coordinate  component  by  using  the  following 
UPSET  options.  The  value  can  be  any  positive  real  number  or  the  character  strings  "E" 
or  “e". 


UPSETCBASE', value)  -  The  base  for  logarithmic  scaling  along  each  component  is  set  to 
the  value  specified 

UPSETCXBASE’, value)  -  The  base  for  logarithmic  scaling  along  the  X-component  is  set 

to  the  value  specified.  The  other  bases  remain  uneffected. 

UPSETCYBASE’, value)  —  The  base  for  logarithmic  scaling  along  the  Y-component  is  set 

to  the  value  specified.  The  other  bases  remmain  uneffected 

UPSET  ZBASE’, value)  —  The  base  for  logarithmic  scaling  along  the  Z-component  is  set 
to  tha  value  specified.  The  other  bases  remain  uneffected 


INTENSITY: 

The  brightness  of  the  output  on  the  display  surface  may  be  specified  if  the  device  has 
variable  intensity  settings.  Intensity  settings  are  specified  by 
UPSETCBRIGHTNESS', value)  where  the  value  is  a  percentage  along  the  range  of 
allowable  intensity  settings  from  minimum  to  maximum.  This  0.  is  the  lowest  intensity 
setting  and  1 00.  is  the  highest  intensity  setting.  Intensities  may  also  be  specified  by  the 
following  USET  options.  Default  intensity  level  is  60%. 

'DIM'  —  The  intensity  is  set  to  the  10%  level 

'NORMAL'  —  Tire  intensity  is  set  to  the  60%  level 

'BRIGHT'  —  The  intensity  is  set  to  the  100%  level 
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LINE  WIDTH: 


The  line  widtn  (sometimes  referred  *o  as  spot  size)  may  be  specified  if  the  device  has  a 
variable  line  width.  Line  widths  are  specified  by  UPSET  CWIDTH’.value)  where  the  value 
represents  the  width  of  the  line  in  current  units.  The  line  width  may  also  be  set  using  the 
following  USET  options.  The  default  width  is  'THIN'. 

‘THIN’  -  The  line  width  is  set  to  the  thinnest  line.  If  a  simulator  is  being  used,  a 

single  line  is  generated. 

‘WIDE’  —  The  fine  width  is  set  to  the  widsst  line.  If  a  simulator  is  being  used,  a 

line  approximately  .1  inches  in  width  is  generated. 


— 
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T I o  Interval  fipMlfloatlan 

Flour*  Z  OJ9PEM) 


CALL  USTART 

CALL  UPSET  C' TERMINATOR ', 

CALL  USET  C' T ARROW O 
CALL  UMOVE  C0.,S0.:> 

CALL  UPSET  C'TICXNTERVAL', 10.3 
CALL  UPEN  CE0..S0.5 
CALL  UMOVE  C0.,40.} 

CALL  UPSET  C'TICXNTERVAL'.S.J 
CALL  UPEN  C60.,40.:> 

CAi_L  USET  C  'A CENTER' 5 
CALL  USET  C ' LARGE' 3 

CALL  UPRINT  C2S. ,30., 'T>IC  <I>NTERVAL  <S>PECIFICATION<, *> 

CALL  UPRINT  C2S .,25., * F>X6UR£  2  <CU3PEN5; O 

CALL  UEND 

STOP 

END 
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1 — h-» 


Tlo  Mark  Slum* 

Flaw*  3  cuspen: 


CAUL  USTART 

CAUL  UPSET  C 'TERMINATOR', •, '5 

CALL  USET  C'TARROWO 

CALL  UPSET  C'TICIMTBRVAL',S. > 

CALL  UMOVE  CE..70.5 

call  open  c20.,7a.> 

CALL  UMOVE  C 40., 08. 5 
CALL  UPEN  C40.,S0.> 

CALL  UPSET  < ' TICPLUS ' , 1 0 . > 

CALL  UPSET  C'TICMINUS',6.5 
CALL  UMOVE  C5..40.5 
CALL  UPEN  C20 .,40.5 
CALL  UMOVE  C 40., 30. 5 
CALL  UPEN  C40. ,  E0. 5 
CALL  USET  C'ACENTERO 

CALL  USET  C'LARSEO  _ 

CALL  UPR3WT  C2&. , «B . , 'T>IC  <M>ARK  <S>IZES# 

PAI  t  UPRINT  <26 .  .  1 0 .  .  '  <F>IGURE  3  «U3PEN>j 

CALL  UEND 

STOP 

END 


O 

O 
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56__  ______ 

It.  ... 

74 _ 

744 _ 

9464 _ _ 

7282 _ 

12346978 _ _ 


l~_  ______  C  NON-HARDWARE  DASH) 

8 . C NON-HARDWARE  DASH) 


ExoaplM  of  Paah*d  Linos 
ft euro  4  CU3PEN) 


DIMENSION  DTABLEC8) 

DATA  DTASLE/0.,1.. 12346978. .7292. .34S4. ,744.,74. . 18. ,56./ 
PAi  I  USTART 

CALL  UPSET  C'TERMINATOR',',') 

CALL  USET  C'LARSE') 

CALL  USET  C'lNTESER') 

CALL  USET  C'DNULL' ) 

DO  10  I  -  30,70.5 
Y  -  I 

U  -  Cl-30)  /  6  ♦  | 

CAc_L  UPSET  C'SETDASH'.DTABLECvO) 

CALL  UPRINT  C0. , Y, DTABLEC-J)? 

10  CALL  UPEN  CSS  ,Y) 

CALL  USET  C'TEXT') 

CALL  UPRINT  CSS. ,36., ' CNON-HARDWARE  DASH);') 

CALL  UPRINT  CSS  , 30 . . ' CNON-HARDWARE  DASH);') 

CALL  USET  C'ACENTER') 

CALL  UPRINT  C60 . . 20 . , /E>XANPLES  OF  <D>ASHED  <3_>INES ; ' ) 
CALL  UPRINT  CSS.,  IS., /<F>ISURE  4  <U3PEN);') 

CALL  UEND 

STOP 

END 
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' 


Character  T«rmlnolor  Output 
Flour.  S  CU3PEN3 


CALL  U6TART 

CALL  UPSET  C ' TERMINATOR '3 
CALL  USET  < 'PERCENT  UNITS' 3 
CALL  USET  C ' L CHARACTERS ' 3 

call  usmove  < 10. . so. .0. 3 

pill  iiopciu  /ca  oa  Mra  \ 

CALL  USET  C 'SIMULATED  HARDWARE  CHARACTERS '5 
CALL  UPSET  C'XSIZE',S.3 
CALL  UPSET  C'YSI ZE',7.> 

CALL  U3M0VE  CI0.,«I..0.3 

CALL  U3PEN  CB0..SS. ,-S0. 3 

CALL  USET  C' SOFTWARE  CHARACTERS' 3 

CALL  USMOVE  <t0.,S0.,0.3 

CALL  U3PEW  <S0.,e0.,-S0.3 

CALL  USET  C'ACENTER'3 

CALL  USET  C' HARDWARE  CHARACTERS' 3 

CALL  USET  C' LARGE '3 

CALL  U3PRNT  C2S . . 30 . . 0 .  „  ' OHARACTER  <T>ERMINATOR  <0>UTPUT,'3 

CALL  U3PRNT  C2S . . 2B . , 0 . , ' <F>IGURE  S  «U3PEN3;'3 

CAU.  UENP 

STOP 

END 
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•  a  O  A  +  O  S  H  ®  ffl 


01  29466799 


0CS-£>%f  lr»4  £y«fcola 

Fleur*  6  CWpefO 


CALL  USTA&T 

CALL  UPSET  C ' TERMINATOR '5 
CALL  USET  C ' NSYMBOL / 5 
CALL  USET  C'ACENTER'5 
CALL  USET  C 'INTEGER' 3 
CALL  USET  C ■'LARGE'1 5 
CALL  UPSET  C'SZMARKER'. .35 
DO  10  I  -  6,86, 18 
X  -  I 

6YM  -  Cl— 65  /  10 
CALL  UPSET  C ' SYMBOL ' , SYM5 
CALL  UPEN  CX,60.5 
10  CALL  UPRINT  CX.60.,fYM5 
CALL  USET  C' TEXT '5 

CALL  UPRINT  C60 . , 40 . . ' CCS-0>FFIh£D  <S>YMBOLS; '5 

CALL  UPRINT  '.60 .  ,  36 . ,  '  <F>ISURE  6  <CU3PEN5  )  '  5 

CALL  UEND 

STOP 

END 


30.. 60. 5 


.150 .  .50.  .0.  ) 


_ (  30  .  . 40 .  ) 


Coordinate  lent  I  not ore 
Figure  7  CU3PEN3 


CALL  USTART 

cali  upsct  c ' terminator 

CALL  USET  C ' L  COORDINATES ' 3 

CALL  USET  C' LARGE '3 

CALL  UHOVE  C0..O0.3 

CALL  UPEN  C30..P0.3 

CALL  USET  C' SIMULATED  HARDWARE' 3 

CALL  USET  C ' 3PCOORDINATES ' 3 

CALL  UHOVE  C0..S0.3 

CALL  UPEN  C30..G0.3 

CALL  USET  C' SOFTWARE'? 

CALL  USET  C ' 2PCOORPTNAT  ES ' 3 
CALL  UNOVE  CO . . 40 . 3 
CALL  UPEN  C 30.. 40. 3 
CALL  USET  C ' ACENTER ' 3 
CALL  USET  C 'HARDWARE' 3 

CALL  UPRINT  C3W  .  .  30  .  .  'OOORPINATE  <T>ERNINATORS  ,  '  3 

CALL  UPRINT  C30 .  .  26  . .  '  <F>IGURE  7  vCLi3PEN3;'3 

CALL  UEND 

STOP 

END 


i  ll-NM 

Fleur*  0  CWPEro 


PA  I  I  USTART 

CALL  UPSET  C'TERNINAT0R'.',O 
CALL  USET  C'LARROWO 
CALL  USET  C ' UNINTERRUPTED  ' 3 
xloop  —  a 

XLOC  -  ZB. 

IS  IF  CXLOOP  .EQ.  2)  60  TO  28 
CALL  UNOVE  CXLOC *6 . . 30 . > 

CALL  UPEN  CXLOC-* 16..  38 . } 

CALL  UPEN  CXLOCf20.,36.5 
CALL  UPEN  CXLOC+20  .,46.5 
CALL  UPEN  CXL0Cft6..6a.> 

CALL  UPEN  CXLOC+6.,60.} 

CALL  UPEN  CXLOC. 46. 5 
CALL  UPEN  CXLOC, 35 . > 

CALL  UPEN  CXLOC+G .,30.3 
ILOOP  -  XLOOP  ♦  | 

XLOC  -  66. 

CALL  USET  C  *  CAPPED  * J 
QC  TO  la 

20  CALL  USET  C'ACENTERO 
CALL  USET  C 'LARGE O 

C5a  .,2a.,'  oapped  <l>inesj  '  3 
CALL  iSSNT  <M-' ,B" /<F>ICURE  •  <CU3PEN)j  '> 
STOP 
END 


244 


Project  Ion  Mo dM 
Plsur*  fi  CU3PEN3 


CALL  ATTACH  <2, '/TEK3DEM0/SAVE, ', 3. 0. 1ST. 3 
CALL  USTART 

CALL  UPSET  < ' TERMINATOR' .  '  ;  '3 
CALL  UASPCT  Cl . 5 
CALL  UPSET  <'LIBRARYFILE'. I .5 
CALL  UTILTY  < 'LOAD', 2. 3 
CALL  USET  C'ACENTER'? 

CALL  USET  <' LARGE '3 

CALL  UPRINT  <50. , 2S . . 'P>ROJECTION  <N>0DES,'3 

CALL  UPRINT  <50 .  . 20 . .  ' <F>IGURE  0  «U3PEN3;'3 

CALL  USET  < 'NOCENTER' 3 

CALL  USET  <' REFERENCE  SYSTEM'S 

CALL  UVIEW  < -40. ,200. .70. .-20. .20. .0.3 

CALL  UWH*>0  <-100., 100. .-100., 100.3 

CALL  UVWPRT  <150.3 

CALL  USET  <' PERSPECTIVE '3 

CALL  USET  <' PERCENT  UNITS '3 

CALL  UDAREA  <0. .50. .25.  .76  3 

CALL  U3CALL  <-50. .20. .0. , I . . I . . I . .00. . 0. ,0. . 'CHURCH'3 
CALL  USET  <' ORTHOGRAPHIC '3 
CALL  UDAREA  <60. , 100. , 25. . 76. 3 

CALL  U3CALL  <-60. ,20. , 0 . , I . . I . , I . .00. . 0. .0. . 'CHURCH' 3 

CALL  UEND 

STOP 

END 
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Cylindrical  Coordinate* 

Figure  10  CU9POO 


rAi  i  ugTART 

CALL  UPSET  < ' TERMINATOR ','5 
CALL  USET  <'LAR3E'5 
CALL  USET  C ' ACENTER • 5 

CALL  UPRJNT  <50 .  .  20 . ,  ‘  OYLXNORICAL  COOORDXNATESj  '5 

CALL  UPRXNT  CC0 .,16.,' <F>IGURE  10  «U3PEN5,'5 

CALL  UVIEW  <160..  I60..30..0..0..30.5 

CALL  UWINDO  <-100.. 100. ,-100., 100.5 

CALL  USET  <  '  CYLINDRICAL  7  5 

CALL  UCRCLE  <0..0..30.5 

CALL  UPSET  < ‘ ZVALUE ',80.5 

CAJX  UCRCLE  <0.,0.. 30.5 

DO  10  1-1.340, IS 

THETA  -  I  -  I 

CALL  U3NOVE  <30. . THETA. 0. 5 
10  CALL  U3PEN  <30.. THETA. 00. 5 
CALL  UENP 
STOP 
END 
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Sf»hw*t«al  Coordlnat 

Fleur*  tJ  Ol9POO 


CALL  USTART 

CALL  UPSET  C '  TERMINATOR '  .  ' ,  '  3 
CALL  USET  C'ACENTER'3 
CALL  USET  O' LARGE' 5 

CALL  UPR3NT  CBB . , 20 . . ' S>PHERICAL  <C>OORDINATES , ' 3 

CALL  UPRINT  <G0. . IB.. '<F>IGURE  II  <CU3PEN3,'3 

CALL  UVIEW  C I B0 . ,  I B3 . , SB . .  0 . ,  0 . .  8 . 3 

CALL  UWIM30  <-100. , 100. ,-|00. , |00. 3 

CALL  USET  C' SPHERICAL  COORDINATES ' 3 

RADIUS  -  30. 

ILOOP  -  0 

10  IF  CILOOP  .EO.  23  GO  TC.  20 
DO  IB  I  -  I.  181,  20 
RHO  -  I  -  I 

CALL  U3M0VE  < RADIUS. 0.. RHO 3 
DO  IB  d  -  I,  361,  10 
THETA  -  -J  -  I 

IB  CALL  U3PEN  < RADIUS. THETA. RHO 3 
CALL  U3NCVE  C0..0..0.3 
CALL  U3ROTA  <0., 90. ,0.3 
ILOOP  -  ILOOP  ♦  I 
GO  TO  10 
20  CONTINUE 
CALL  UEND 
STOP 


DIMENSION  XC  tOt  >.Y<  tOt 2 
CALL  OSTART 

CALL  UPSET  C 'TERMINATOR'  .  '  »  ^  ) 
CALL  UASPCT  Ct .) 

DO  t9  I  -  I,  101 
XCD  -  I 

tO  YCD  -  1 0 . »*CXCX)/30 . ) 

CAU.  USET  <  7 PERCENT  UNITS') 
CALL  UDAREA  <6. .46. .60.. 100.) 
CALL  UNOVE  CXCD.YCI)) 

DO  20  I  -  2.  101 
20  CALL  UPEN  CXCD.YCI)) 

CALL  USET  C'YLOQARITHMIC') 
CALL  UDAREA  C6S..06. .60. . 100. 
CALL  UMOVE  CXCD.YCt)) 

DO  SO  I  "  2.  101 
38  CALL  UPEN  CXCD.YCD) 

DO  40  I  -  t.  101 
XCI)  -  FLOAT  Cl)  /  1 .2 
40  YCI)  -  2.IMKXCI)  /  10.) 

CALL  USET  C 'POLAR') 

CALL  UMINDO  <-190.. IOO..-IOO. 
CALL  USET  C'NOLOOARITHNS') 
CALL  UDAREA  C6..4S..20..60.) 
CALL  UMOVE  CXCD.YCI)) 

DO  SO  I  -  2.  101 
60  CALL  UPEN  CXCD.YCD) 

CALL  UDAREA  <65.. 06  ..20..  60.) 
CALL  USET  C ' XYL08ARXTMNIC ' ) 
CALL  UPSET  <'6ASE'.2.) 


CALL  UfiET  C'LOGOBJECTO 
CALL  UHOVE  CXCI>,Y<I» 

DO  00  1  -  2,  101 
80  CALL  UPEN  CXCI3.YCI33 

CALL  UfiET  C' NOLOGARITHMS '3 
CALL  USET  < 'RECTANGULAR' 3 
CALL  UWINPO  C0., 100. ,0., 100.3 
CALL  UOAREA  C0.. 100. .0.. 100.3 
CALL  UfiET  C' LARGE '3 
CALL  UfiET  C'ACENTER'3 

CALL  UPRINT  CS0.,Z0. , 'UXJQARITHNIC  SCALING; '3 

CALL  UPRINT  CG0 . ,  I S . ,  ' <F>IQURE  12  <CU3PEN>j'> 

CALL  UEND 

STOP 

QR> 


Subroutine  U3PEN1 


3D 


FUNCTION: 

This  routine  sets  the  USET  option  provided,  draws  the  indicated  3D  line  using  the 
current  line  option,  and  then  restores  the  value  changed  by  the  USET  option 

CALLING  SEQUENCE: 

CALL  U3PEN1  (X,Y,Z, OPTION) 

Where 

X  is  the  X  (RADIUS)  coordinate  of  the  head  of  the  beam/pen  movement 

Y  is  the  Y  (THETA)  coordinate  of  the  head  of  the  beam/pen  movement 

Z  is  the  Z  tPHI)  coordinate  of  the  head  of  the  beam/pen  movement 

OPTION  is  the  USET  option  to  be  set  only  for  the  execution  of  the  subroutine 

OPTIONS  which  may  apply: 

Any  USET  option. 

See  UPEN/U3PEN  for  a  description  of  options  effective  pen/beam  movements. 

COMMENTS: 

U3PEN1  is  convenient  for  setting  options  which  will  apply  only  to  one  pen/beam 
movement.  The  GSA  setting  modified  by  OPTION  will  be  restored  prior  to  returning  to  the 
calling  program. 

Programming  Notes: 
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Subroutine  U3PLAC 

FUNCTION: 


3D 


frame°Ut'ne  app,ies  a  3‘D  imafle  translation  transformation  to  the  indicated  segment/ 

CALLING  SEQUENCE: 


Where 


CALL  U3PLAC  (X,Y^,SEGID) 


X,  Y,Z  is  the  new  position  of  the  segment  in  current  3-D  device  units. 

SEGID  is  the  identifier  of  a  “retained”  segment/frame  which  was  UOPENed  for  at 
least  3-D  image  translations. 

OPTIONS  which  may  apply: 


Device  Units: 


‘INCHES’,  ‘CENTIMETERS', 
'PERCENT  UNITS’ 


t-r 


'FONTUNITS',  'SPECIFICATION  UNITS' 


Specification  Unit  Size  (UPSET):  ‘SPECIFICATION  UNITS',  ^SPECIFICATION  UNITS' 

^SPECIFICATION  UNITS’,  ^SPECIFICATION  UNITS' 


Segment  Identifier  Mode.  ‘FNAME’,  ‘FNUMBER’,  ‘SNAME’,  SNUMBER' 

Segment  Type:  ‘NOTRANSFORMATIONS’,  '2DTRANSLATION'  '2DGENERAL' 
'3DTRANSLATION',  '3DGENERAL' 


COMMENTS: 


Jortac9tehLrt.nSf?rm5ti0n  isapplied  ,0  ,he  specified  segment.  If  the  resulting  image 
exceeds  the  display  dimensions,  the  result  is  undetermined.  9 

l^nn!.ir.tnf«,0rmati0.nS  a7  °n,y  applied  if  supPorted  on  the  current  display  surface 
supporl^ th5rfic5SJ.  an‘ S,0rmat'°ns  wi"  be  ignored  if  the  disPlay  device  does  not 


Programming  Notes: 
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Subroutine  U3PL0T 


3D 


FUNCTION: 

This  routine  provides  a  general-purpose  numeric  3-D  plotting  capability.  Given  three 
arrays  of  corresponding  coordinates  of  one  or  more  curves,  it  will  scale  and  plot  these 
points  along  with  suitable  axes  and  labels  as  specified  by  the  user. 

CALLING  SEQUENCE: 

CALL  U3PLOT(X,Y  7, CURVES, PTS, OPTS) 

Where 

X  is  a  set  of  X  or  RADIUS  COMPONENTS  for  the  points  for  all  the  curves  in 

current  user  units. 

Y  is  a  set  of  Y  or  THET A  components  for  the  points  for  all  the  curves  in 

current  user  units. 

Z  is  a  set  of  Z  or  PHI  components  for  the  points  for  all  the  curves  in  current 

user  units. 

CURVES  is  a  single  variable  which  indicates  the  number  of  curves  to  be  plottes. 

PTS  is  an  array  which  indicates  how  many  points  are  in  each  curve. 

OPTS  is  an  array  which  specifies  which  USET  option  will  apply  to  ach  curve  as  it 

is  being  plotted.  One  option  must  be  specified  for  each  curve  and  only  the 
first  four  characters  of  the  option  name  should  be  specified. 

OPTIONS  which  may  apply: 

All  which  apply  to  UPLOT 
All  which  apply  to  U3AXIS 

X-Component  Repetition  Option:  XREPEAT',  ‘NOXREPEAT’,  'XCONSTANT' 
Y-Component  Repetition  Options:  'YREPEAT',  ‘NOYREPEAT’,  ‘YCONSTANT’ 
Z-Component  Repetition  Options:  'ZREPEAT',  ‘NOZREPEAT’,  ‘ZCONSTANT1 

COMMENTS: 

Since  the  U3AXIS  options  apply,  the  user  should  become  familiar  with  their  effects. 

The  Component  Repetition  Options  allow  the  user  to  avoid  repetitious  storing  of 
components  which  retain  the  same  value  throughout  a  particular  curve  or  over  a  group  of 
curves.  Selecting  a  CONSTANT'  option  indicates  that  that  component  does  not  vary 
during  any  of  the  drawing.  Selecting  a  'NOREPEAT'  option  indicates  that  a  component  is 
provided  for  every  point  in  every  curve.  This  is  the  default.  Selecting  a  'REPEAT'  option 
indicates  that  one  set  of  component  values  is  provided  which  will  be  reused  for  each 
curve  The  size  of  this  set  is  always  the  number  of  points  in  the  first  curve.  If  subsequent 
curves  have  more  points  than  the  first  curve.  U3PLOT  will  start  to  resequence  through 
the  repeated'  components 

Programming  Notes: 
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SPIRAL  ON  A  SPHERE 


REAL  XC40I5.  YC40I5.  ZC40I5.  R 
R  -  10. 

00  1 0  I  -  1 ,  40 1 
ZCI5  -  FLOAT  Cl— I 5  *  R/Z00.0  -  R 
T  -  SORT CR*««2  -  ZCI5»»25 
XCI3  -  C0SCZCI5  *  0.55  m  T 
YCI3  -  SINCZCI5  H  0.63  m  T 
10  CONTINUE 


USTART 

UPSET  C ■'TERMINATORS  7,75 
UPSET  C 7 HORIZONTAL7, .05 
UPSET  C'VERTICAL7. I .25 
USET  C 'SOFT7? 

USCT  C  7  NOYLABELS 7  5 
UWXNOO  <-lS.. t6..-tC.. 16.5 
UVIEW  C30 . , -30 . , 20 . ,  0 .  ,  0 .  ,  0 . 5 
U9PL0T  CX.Y.Z,  l..40l.,7LNULLO 
UVIEW  <0..O.,  150. .0. ,0.5 
USET  C'ACENTER7) 

U3M0VE  C0..-I I ..0.5 

UPRNTI  C 7 SPIRAL  ON  A  SPHERE j 7, 7 TEXT 7 5 
UEND 


END 
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Subroutine  U3PRNT 


3D 


FUNCTION: 

This  routine  displays  textual  data  justified  at  the  3D  pen  position  specified.  At 
termination,  the  pen  will  be  positioned  at  the  end  of  the  text  string  ready  for  additional 
characters. 

CALLING  SEQUENCE: 

CALL  U3PRNT  (X,Y,Z,DATA) 

Where 

X,Y,Z  are  the  coordinates  of  the  text  string  justification  positioned  in  current 

units. 

DAT  A  is  a  GCS  Hollerith  text  string  if  'TEXT'  is  specified. 

is  a  REAL  varible  if  'INTEGER'  or  'REAL'  is  specified. 

is  a  REAL  array  of  two  elements  if  'XYCOORDINATES'  are  specified. 

is  a  REAL  array  of  three  elements  if  'XYZCOORDINATES'  are  specified. 

OPTIONS  which  may  apply: 

Alphanumeric  Outpu*  Type:  ‘TEXT’,  'INTEGER'.  REAL1,  'XYCOORDINATES', 

'XYZCOORDINATES'. 

GCS  Terminator  Character:  UPSET('TERMINATOR'), value) 

Numeric  Precision  Option:  UPSET(‘PRECISION’, value) 

Significant  Zero  Option:  ‘SIGNIFICANT  ZEROES',  ‘NOSIGNIFICANTZEROES’ 

Chat acter  Type  Options.  ‘HARDWARE’,  ‘SIMULATED  HARDWARE'.  'SOFTWARE' 

Hardware  Character  Position  Size:  ‘SMALL’,  'MEDIUM',  'LARGE'.  'EXTRALARGE', 

UPSETf'XSIZE', value),  UPSETfYSIZE'. value) 

Software  Character  Position  Size.  UPSETl'HORIZONTALSIZE', value),  UPSET 

CVERTICALSIZE', value) 

Character  Position  Occupancy:  UPSETCXPERCENT', value),  UPSETf'YPERCENT  , 

value),  UPSETCZPERCENT’, value) 

Alphabetic  Case  Shifting:  ‘UPPERCASE’,  'LOWERCASE' 

Case  Shift  Character  Specification:  UPSETf'UPPERCASE', value), 

UPSETCLOWERCASE’,  value) 

Orientation:  UPSET ('ORIENTATION',  value) 

Italicization  Options:  ‘ITALICS',  ‘NOITALICS’ 

Italic  Slant  Angle:  UPSETOSLANT’, value) 

Coordinate  Space  Options:  ‘VIRTUAL’,  'DEVICE' 

Margin  Boundaries:  see  UMARGN 
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Window  Boundaries:  see  UWINDO 

Alphanumeric  Spacing  Options:  VERTICAL',  ‘HORIZONTAL’ 

Alphanumeric  Justification  Options:  ‘NOCENTERING’,  'ACENTERING', 

‘NOJUSTIFICATION’,  ‘LJUSTIFiCATION’, 

^JUSTIFICATION',  ^JUSTIFICATION’, 

‘B JUSTIFICATION',  ‘M  JUSTIFICATION’, 
'TJUSTIFICATION' 

Subscript  Character:  UPSETCSUBSCRIPT', value) 

Superscript  Character:  UPSETCSUPERSCRIPT’, value) 

Subscript/Superscript  Specification:  'SUBSCRIPT',  'SUPERSCRIPT',  ‘NOSCRIPT’ 
Scripting  Level:  UPSET('SCRIPTLEVEL'.value) 

Pen  Coordinate  Option:  see  U3PEN 

Coordinate  System:  ‘SYSTEM’,  ‘WORLD’,  'USER',  'MODELLING' 

User  Coordinate  System  Type:  'REFERENCE', ‘WORKING’ 

Attributes:  see  U3PEN 

COMMENTS: 

The  description  of  the  alphanumeric  output  facilities  is  divided  into  three  areas  of  format 
character  descriptions  and  alphanumeric  output,  positioning  each  of  these  will  be 
discussed  individually 

Programming  Notes: 
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FORMAT: 


U3PRNT  handles  any  ol  live  typos  ot  alphanumeric  opertions  Tho  format  ot  tho  input 

parameter  DATA  depends  upon  which  typo  ol  operation  is  spiralled 

'INTEGER  Tho  Input  is  n  single  ieal  variable  whoso  intogei  value 

will  bo  displayed  at  (X.Y./l  Truncation  will  occur  II  a 
number  which  is  not  an  Intogei  is  provided 

REAL'  —  The  input  is  n  single  real  numboi  whoso  value  will  be 

displayed  at  tX.Y.ZI  Tho  numboi  ot  digits  ot  precision 
can  bo  ndjucted  by  using  UPSET  t'PRl  CISION'. value) 
whom  tho  value  is  the  number  ol  digits  ot  pieclslon 
desired  Numbers  will  bo  rounded  to  the  least  signili 
cant  digit  Tho  deinull  precision  is  lour  Display  ot 
significant  trailing  zeroes  is  controlled  by  the  signili 
cant  zero  List  1  option  SIGNIFICANT  /I  ROt  S'  spec 
dies  that  significant  zeroes  are  to  bo  displayed. 
NOSIGNII  IOANI  Zt  ROt  S'  suppresses  Ihoir  display 
I  tie  delaull  suppresses  sigmhcanl  zotoos 

XYCOORDINA1ES'  The  input  is  .1  ieal  anay  ol  two  elements  the  hist 

element  mlloots  an  X  m  HAOIIIS  coordinate  i:ompo 
nent  at  the  second  element  I  ho  second  mtlocls  a  N  or 
T  HI  1  A  cooidmalo  component  1  ho  i  oontinatos  will  bo 
displayed  at  (X.Y.Z)  enclosed  in  i>aionlhosos  and 
separated  t'v  a  comma 

'XYZCOORDINATES'  the  input  is  a  real  array  ot  throe  elements  The  Inst 

element  rolled.,  an  \  or  RADIUS  coordinate  compo 
nent.  lhr>  second  element,  a  Y  oi  till  1A  coordinate 
component  and  the  thud  element,  a  7  ot  PHI  cooidi 
nato  component  the  coordinates  will  he  displayed  at 
(X.Y/i  enclosed  in  parentheses  and  separated  try 
commas,  o  g  .  Id  iC'oh.l  hO  I  1  he  precision  card  signili 
cant  zeroes  optroirs.  desenbed  tot  Rl  At'  numbers 
above,  both  apply  to  each  i  omponont  Nolo  that  tire 
coordinates  displayed  need  not  be  the  same  values  us 
the  ulphunumenr  output  iiishhcuhon  pomIioh  paiame 
tors  (X  Y.ZT 

'TEXT'  The  Input  Is  a  single  variable  or  anay  containing  a 

Holler  ith  Chunu  lei  stung  The  stung  may  l><>  as  long  as 
desired  but  must  be  terminated  by  the  DCS  teimurator 
character  this  .  harader  which  cannot  be  displayed 
while  tundionurg  as  the  teimmator  character,  inav  tre 
spscdied  try  UI’SI  I  1  11  RMINATOR  value)  wtreie 
value  is  a  one  chaiadoi  Holleullr  :;tiurg  lire  delaull 
GC>S  terirruralor  chuiaoloi  is  lire  ASCII  backslash 
It.’  hi  chaiadei  lhe  input  stung  may  also  contain 
upper  and  lowei  case  slutting  draiadeis  The  case 
Shitting  and  scupturg  i  haiadeis  are  desenbed  below 


CHARACTER  DESCRIPTION  OPTIONS 

These  options  speclly  the  attributes  ot  individual  t  Irani  leu. 


CHARACTER  TYPE: 


There  are  three  basic  types  of  characters  in  GCS  Each  type  will  be  described 

separately  below  Figure  2  illustrates  each  type.  The  user  can  switch  between  any  of  the 

three  types  simply  by  invoking  the  appropriate  USET  options 

'HARDWARE'  —  These  characters  are  generated  when  possible  by  a 

hardware  character  generator  in  the  display  device. 
The  size  of  these  character  positions  is  frequently 
limited  to  several  discrete  sizes  (see  Hardware 
Character  Position  Size  below)  The  characters  are 
produced  on  the  display  surface  plane.  This  is  the 
default  character  type  Character  spacing  is  exact 
Hardware  character  output  may  be  directed  to  either 
the  MESSAGE  DEVICE'  or  the  PLOTDEVICE'  if  they 
are  separable 

'SIMULATED  HARDWARE'  —  These  characters  are  produced  via  software  Al¬ 
though  they  act  as  hardware  characters,  they  are 
generated  to  the  exact  hardware  character  position 
size  <qv)  specified  SIMULATED  HARDWARE' 
characters  use  the  SOFTWARE'  characters  descrip¬ 
tions  The  characters  are  produced  on  the  display 
surface  plane  Character  spacing  is  exact 

SOFTWARE'  -  These  characters  are  produced  by  software  vectors 

in  the  current  XY-plane  Tne  line  which  connects  the 
lower  left  coiner  of  each  character  positron  in  the 
string  is  parallel  to  the  current  X-axis  The  string  is 
drawn  in  the  positive  X -direchon  for  horizontal 
spacing  and  the  negative  Y  direction  for  vertical 
spacing  (see  Character  spacing)  Both  software 
character  dimensions  may  be  specified  (see  below) 

HARDWARE  CHARACTER  -  The  size  of  HARDWARE  and  SIMUL  ATED 

POSITION  SIZE  HARDWARE'  character  positions  may  be  set  by 

either  USET  or  UPSET  options  An  exact  size  may  be 
specified  by  the  following  LIPSE  T  options  For 
haidware  characters,  the  largest  discrete  size  will  be 
used  which  does  not  exceed  the  requested  size  If  all 
sizes  exceed  the  requested  size,  then  the  smallest 
size  is  used 

UPSET!  XSIZE  .value)  —  The  horizontal  character  position  size  is  sol  to  the  value 

specified  in  current  DEVICE'  space  units 

UPSET('YSIZE'.value)  -  The  vertical  character  position  size  is  set  to  the  vaiue  specified 
in  current  DEVICE'  space  units 


Four  \ 4 )  discrete  sizas  are  provided  Dy  USET  options 

'SMALL'  —  The  hardware  character  nosition  size  closest  to  tvpewnter  size  character 
positions  This  is  the  default 


MEDIUM'  -  This  is  the  next  larger  size  from  SMALL  Simulated  MEDIUM  size  is 
approximately  twice  the  SMALL'  size 

'LARGE'  -  This  is  the  next  larger  size  (rem  'MEDIUM'  Simulated  LARGE"  size  is 
approximately  three  tunes  the  'SMAi  !  sue 


‘EXTRALARGE'  —  This  is  the  next  larger  size  from  LARGE'  Simulated  EXTRALARGE' 
size  is  approximately  tour  times  the  SMALL’  size. 

Additional  discrete  sizes  may  be  specified  by: 

UPSETCSIZE', value)  -  The  discrete  size  whose  index  is  specified  in  the  value  is 
selected.  Indexes  must  be  positive  values  SMALL'  through 
'LARGE'  are  represented  by  index  values  1.  through  4. 
Assignment  of  sizes  to  remaining  index  values  (i  e  LT  4 )  is 
installation  dependent 

SOFTWARE  CHARACTER  POSITION  SIZE: 

The  size  of  ’SOFTWARE'  character  positions  may  be  set  oy  the  following  two  UPSET 
options.  The  visible  size  of  so'tware  characters  is  affected  by  scaling  factors  created  by 
U3CSYS  calls  and  by  the  currently  set  viewing  environment  Software  character 
positions  in  device  space  are  visibly  the  same  size  as  software  character  positions  in 
virtual  space  at  the  view  plane 

UPSETCHORIZONTAL  SIZE. value)  -  The  horizontal  size  of  software  character 

positions  is  set  to  the  value  provided  in  current 
user  units.  Default  value  is  5. 

UPSETCVERTICALSIZE', value)  -  The  vertical  size  of  software  character  positions  is  set 

to  the  value  provided  in  current  user  units.  Default 
value  is  7. 

CHARACTER  POSITION  OCCUPANCY: 

The  proportion  of  the  software  character  positions  to  actually  be  occupied  by  the 
character  may  be  specified  as  follows. 

UPSETf'XPERCENT  .value)  -  The  proportion  of  the  width  of  the  character  position  to  be 

occupied  by  the  character  is  set  to  the  value  provided. 
Valid  values  are  greater  than  zero  A  value  of  1  specifies 
the  entire  width  of  the  character  position.  Default  value  Is 
65 

UPSETf'YPERCENT',  value)  -  The  proportion  of  the  height  of  the  character  position  to  be 

occupied  by  the  character  is  set  to  the  value  provided 
Valid  values  are  greater  than  zero  A  value  of  1  specifies 
the  entire  height  of  the  character  position  Default  value 
is  .65. 

ALPHABETIC  CASE  SHIFTING: 

In  machines  which  have  only  six  bits  per  character,  it  is  still  desirable  in  GCS  to  be  able 
to  specify  both  upper  and  lower  case  characters  since  the  software  character  set  can 
produce  both.  Therefore,  a  case  shifting  facility  has  been  implemented  which  not  only 
provides  this  service  for  the  software  characters  but  will  also  work  for  hardware 
characters  on  those  devices  which  have  hardware  character  generators  which  can 
produce  both  cases.  Additionally,  since  case  shifting  applies  only  to  upper  case 
characters,  when  a  program  which  does  case  shifting  is  executed  on  a  computer  which 
does  not  need  case  shifting,  the  desired  upper  and  lower  case  character  will  still  be 
produced. 

To  shift  cases,  it  is  necessary  to  insert  special  case  shift  characters  in  the  GCS  text 
string  GCS  defaults  to  upper  case  When  the  lower  case  shift  character  inserted  in  the 
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string,  a  shift  to  lower  case  will  occur  if  GCS  is  currently  in  upper  case.  If  GCS  is  already 
in  lower  case,  the  shift  character  will  itself  be  generated  The  opposite  happens  when 
the  upper  case  shift  character  is  inserted  in  the  string  If  GCS  is  in  lower  case  mode,  it 
will  be  placed  in  upper  case.  However,  if  GCS  is  already  in  upper  case  mode,  the  upper 
case  shift  character  will  be  generated.  See  Figure  3  for  an  illustration  of  the  use  of  case 
shifting. 

When  changing  cases,  all  alphabetic  characters  will  be  generated  in  either  UPPERCASF. 
or  LOWERCASE  as  appropriate.  However,  to  provide  the  full  complement  of  special 
characters  avai'able  in  the  ASCII  character  set  to  persons  with  computers  which  handle 
only  6-bits  per  character  internally,  some  special  characters  will  be  mapped  into  others 
when  the  case  is  changed. 

The  shift  characters  may  be  changed  by  the  following  two  calls: 

CALL  UPSETCLOWERCASECHARACTER’.CHAR) 
or 

CALL  UPSETCUPPERCASECHARACTER'.CHAR) 


Where 

CHAR  is  a  single  character  in  Hollerith  (left-justified,  blank-fill)  format.  Thus,  it 
may  be  a  literal  (quoted  character  string)  or  a  variable  containing  a 
Hollerith  value. 

The  user  is  warned  that  the  shift  character  should  not  be  set  to  be  the  line  terminator 
character.  If  this  happens,  no  case  shifting  will  occur  The  case  in  which  GCS  is 
currently  set  may  be  forced  to  either  upper  or  lower  case  by  the  following: 

CALL  USETCUPPERCASE’) 

CALL  USET('LOWERCASE') 

This  is  convenient  for  sett.ng  the  system  character  for  use  as  CHARACTER  terminators 
in  the  line  option  or  in  building  ALPHA  lines 

ORIENTATION: 

As  software  characters  are  produced,  they  may  be  'ORIENTED'  (tilted)  oM  the  X-axis  by 
the  UPSET  option  described  below  For  a  string  of  characters  eminating  from  U3PRNT. 
the  lower  left  corner  of  each  character  will  touch  a  line  which  is  parallel  to  the  current  X- 
axis.  The  bottom  of  the  character  will  be  rotated  off  this  line  by  the  number  of  angular 
units  specified.  An  illustrat'on  of  this  feature  is  shown  in  Figure  4 

UPSETCORIENTATION. value)  —  The  geometr  ic  figure  orientation  parameter  is  set  to  the 

number  of  angular  units  specified  in  the  value  Default 
value  is  0  Note  that  the  orientation  parameter  also 
applies  to  UPLYGN  and  URECT. 


ITALIZATION: 

Software  characters  may  be  ITALICIZED’  by  applying  transformation  which  leans  or 
slants  the  character  away  from  the  vertical  as  illustrated  in  Figure  5  This  mode  is 
selected  as  follows: 

'ITALICS’  -  Software  characters  are  to  be  slanted 

•NOITALICS'  -  Software  characters  are  not  to  be  slanted  This  is  the  default 
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ITALIC  SLANT  ANGLE: 


The  amount  of  slant  to  be  applied  to  the  characters  may  be  specified  by: 

UPSETCSLANT', value)  —  The  amount  of  slant  from  the  vertical  is  set  to  the  value 

provided  in  current  angular  units  Default  value  is  approx¬ 
imately  17.5  degrees.  Values  provided  must  not  be  odd 
multiples  of  90  degrees 

COORDINATE  SPACE  OPTIONS: 

U3PRNT  can  display  characters  in  either  DEVICE'  or  VIRTUAL’  space.  If  DEVICE’ 
space  is  specified,  all  characters  will  be  subject  to  margining;  i.e.,  all  characters  will  be 
produced  within  the  specified  margins  (see  UMARGN) 

If  ‘VIRTUAL’  space  is  specified,  all  characters  will  be  clipped  at  the  window  boundaries 
(see  UWINDO).  For  'HARDWARE'  and  ‘SIMULATED  HARDWARE'  characters,  clipping 
will  occur  it  any  portion  of  the  character  position  exceeds  the  window  boundaries.  Since 
SOFTWARE'  characters  are  drawn  with  vectors,  they  will  be  clipped  exactly  at  the 
window  boundaries. 

ALPHANUMERIC  SPACING  OPTIONS: 

Adjacent  character  positions  may  be  defined  to  proceed  either  horizontally  or  vertically 
This  option  applies  to  all  character  types  and  is  selected  as  follows: 

HORIZONTAL'—  Adjacent  character  positions  occur  horizontally;  i.e.,  character  strings 
are  produced  in  the  positive  X  direction 

'VERTICAL'  —  Adjacent  character  positions  occur  vertically;  i.e  character  strings  are 
produced  in  the  negative  V  direction. 

ALPHANUMERIC  JUSTIFICATION  OPTIONS: 

The  arguments  to  U3PRNT  contain  a  set  of  coordinates  which  indicate  the  justification 
position  for  the  output  string  Each  justification  option  is  illustrated  in  Figure  9. 
Justification  options  are  as  follows: 

'LJUSTIFICATION'  —  The  coordinates  specify  the  position  of  the  lower  left  corner 
'NOCENTERING'  of  the  first  character  position  in  the  output  string.  This  is  the 

‘NOJUSTIFICATION'  default. 

^JUSTIFICATION'  —  The  coordinates  specify  the  position  of  the  center  of  the 
‘ACENTERING’  output  string.  The  output  will  be  centered  both  horizontally 

and  vertically.  The  centering  is  upon  the  unscripted  string 
(see  Suoscript/Superscript  Specification  below). 

'RJUSTIFICATION'  —  The  coordinates  specify  the  position  of  the  lower  left  corner 

of  the  character  position  which  follows  the  last  character  of 
the  string  Note  that  this  is  also  the  lower  right  corner  of  the 
last  character  position  of  the  string  if  HORIZONTAL'  spacing 
is  specified. 

STRING  WIDTH  JUSTIFICATION: 

^JUSTIFICATION'  -  Justifies  to  the  bottom  of  the  text  string  for  horizontal  spac¬ 
ing  and  to  the  left  edge  of  the  text  string  for  vertical  spacing. 
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'M  JUSTIFICATION' 


—  Justifies  to  the  midway  point  between  the  top  and  bottom  of 
the  text  string  for  horizontal  spacing  and  to  the  midway  point 
between  the  left  edge  and  right  edge  of  the  text  string  for  ver¬ 
tical  spacing 

'TJUSTIFICATION'  —  Justifies  to  the  top  of  the  text  string  for  horizontal  spacing 

and  to  the  right  edge  of  the  text  string  for  horizontal  spacing 

SUBSCRIPT/SUPERSCRIPT  SPECIFICATION : 

The  primary  means  of  doing  scripting  is  by  the  insertion  in  GCS  text  strings  of  subscript 
and  superscript  escape  characters.  Each  occurrence  of  the  subscript  character  will 
lower  the  position  of  succeeding  characters  1  /3  character  position.  Each  occurrence  of 
the  superscript  character  will  raise  the  position  of  succeeding  characters  1  /3  character 
position.  When  the  GCS  terminator  character  is  encountered,  the  scripting  leve;  is 
returned  to  the  zero  position  and  the  pen/beam  position  is  set  for  additional  unscripted 
characters.  (See  Figure  10  )  Note  that  script  ng  positions  will  not  be  computed  into 
center  justification  adjustments  The  subscript  and  superscript  escape  characters  may 
be  specified  by  the  following  UPSET  options 

UPSETf'SUBSCRIPT, value)  —  The  subscript  escape  character  is  set  to  the  first 

character  of  the  Hollerith  string  provided  as  a  value 
The  default  subscript  character  is  an  ASCII  “pound 
sign 

UPSET('SUPERSCRIPT'.value)  —  The  superscript  escape  character  is  set  to  the  first 

character  of  the  Hollerith  string  provided  as  a  value. 
The  default  superscript  character  <s  an  ASCII  "under¬ 
line  sign". 

An  alternate  method  of  performing  scripting  is  provided  if  several  successive  output 
strings  are  to  be  scripted  The  user  may  specify  the  type  of  scripting  and  the  scripting 
level  The  scripting  level  is  defined  to  be  the  number  of  1/3  character  positions  below 
the  justification  position  for  SUBSCRIPTING'  and  the  number  of  1  /3  character  positions 
above  the  justification  position  for  SUPERSCRIPTING'. 

'NOSCRIPTING'  —  Forced  scripting  is  disabled  However,  scripting  by 

insertion  of  scripting  escape  characters  can  still  occur 
This  is  the  default. 

'SUBSCRIPTING'  —  The  output  string  will  be  produced  starting  at  the 

specified  script  level  position  below  the  justification 
position 

'SUPERSCRIPTING'  —  The  output  string  will  be  produced  starting  at  the 

specified  script  level  position  above  the  justification 
position. 

Note  that  specification  of  the  type  of  scripting  still 
allows  further  modifications  in  the  scripting  by  insertion 
of  scripting  escape  characters  To  set  the  scripting 
level,  the  following  UPSET  option  should  be  used: 

UPSETCSCRIPTLEVEL  .value)  —  The  scripting  level  is  set  to  the  integer  value  specified 

Note  that  if  a  negative  scripting  level  is  provided, 
subscripting  becomes  superscripting  and  vice  versa 
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PEN  COORDINATE  OPTIONS: 


All  pen  coordinate  options  apply  to  the  justification  position  contained  in  the  X,Y  Z 
parameters  to  U3PRNT.  The  actual  starting  location  of  the  character  string  ma»  be 
adjusted  as  required  by  the  justification  option  described  earlier.  For  a  full  description  of 
the  Pen  Coordinate  Options,  see  U3PEN. 

COORDINATE  SYSTEM  SELECTION  AND  TYPE: 

The  full  power  of  U3PRNT  can  only  be  realized  through  use  of  user  coordinate  systems 
U3PRNT  produces  ‘SOFTWARE  CHARACTERS'  on  the  XY-plane  which  passes  through 
the  justification  point.  Through  use  of  user  coordinate  systems,  the  user  can  position 
and  orient  the  XY-plane  anywhere  in  3-space.  By  suitable  coordinate  system 
definitions,  'SOFTWARE'  character  output  can  be  made  to  recede  into  the  distance  or  be 
viewed  from  behind.  It  should  be  noted  that  while  ‘HARDWARE’  and  ‘SIMULATED 
HARDWARE  characters  can  be  positioned  anywhere  in  3-space,  they  will  still  be 
produced  in  the  display  surface  plane 
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123466 
3.  J  42 

<3. 142.2. 71*5 
C3. 142,2.713. 13.> 

Example  of  'TEXT'  Output 


AlphonuMrlo  Output  Forma  to 
Flour*  J  CU3PRNT; 


DIMENSION  COORD <3 > 

DATA  CDORD/3 .141 S920, 2 . 7 1 828, 10./ 

OAt  I  USTART 

CAUL  UPSET  C 'TERMINATOR',  'jO 
CALL  USET  C' LARGE '5 
CALL  USET  C ' INTEGER ' } 

CALL  UPRINT  C20. ,S0. .  1 254GB. 3 
CALL  USET  C ' REAL  '  5 
CALL  UPRINT  <20 4S. . CO0RD< 05 
CALL  USET  <'XY COORDINATES') 

CALL  UPRINT  <20. ,40. . COORD) 

CALL  USET  < ‘ XYZC0ORDINATES  ' ) 

CALL  UPRINT  C20. .36. , COCRD) 

CALL  USET  C'TEXTO 

CALL  UPRINT  C20 .  . 30 . .  ' E>XAMPLE  OF  <"TEXT"  0>UTPUT,O 
CALL  USET  C'ACENTEK') 

CALL  UPRINT  <40.  ,20. , 'ALPHANUMERIC  <0>UTKJT  <F>ORMATS, ') 
CALL  UPRINT  <40. , IS. . '<F>ICURE  I  «U3PRNT5,'> 

CALL  UEND 

STOP 

END 


264 


Hardware  Character* 


Simulated  Hardware  Character* 

„r6  cnsrec«r 

S0ftv^ere 


0CS  Char a* ter  Type* 
Figure  2  CUSPRNTJ 


cai  i  06TART 

CALL  UPSET  ('TERMINATOR'. '; '5 
CALL  USET  C  ' ACENTER ' 5 
CALL  UROTAT  <10.5 
CALL  USET  C '  EXTRALARGE ' 5 

CALL  UPRXNT  C60 . . S3 . , '  H>  ARP  WARE  COHARACTEKS;  '5 
CALL  USET  (' SIMULATED  HARDWARE  CHARACTERS  '  5 
CALL  UPSET  ('XSIZE'. .265 
CALL  UPSET  <'YSIZE'..45 

CALL  UPRINT  C60 . . 40 . . ' <S>IMULATED  <H>ARDWARE  <C>HARACT£RS j ' 5 
CALL  USET  < ' SOFTWARE  CHARACTERS' 5 
CALL  UPSET  C' HORIZONTAL  SIZE'. 4.65 
CALL  UPSET  C' VERTICAL  SIZE'. 7. 5 

CALL  UPRINT  <60.  .26. .  '<SX3FTWARE  <OH ARACTERS j  '  5 
CALL  USET  ('HARDWARE  CHARACTERS j ' 5 
CALL  USET  < ' LAR3E ' 5 

CALL  UPRINT  <46.. 16.. '<6CS  OHARACTER  <T>YPESi'5 

CALL  UPRINT  C46.. »0.. '<F>ISURE  2  «U3PRNT5>'5 

CALL  UENP 

STOP 

END 
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Thf«  I*  caff*  ffhlfklna  In  0CS 
Lppmr/ Uv«r  Caff*  Shift Int 

Flour*  9  OJ5PRMT> 


CALL  USTART 

CALL  UPSET  < 'TERMINATOR', 

CALL  USET  C'ACENTER'J 
CALL  USET  C 'LARGE* > 

CALL  UPRINT  CBS. .30. . 'T>HIS  IS  CASE  SHIFTING  IN  <SCS; "3 

CALL  UPRINT  <G0. .20. . 'U>PPER/<L>OWER  <C>ASE  <S>HIFTINe> '5 

CALL  UPRINT  CSS. . IS. . '<F>IGURE  3  <CU3PRNT5,'5 

CALL  UENP 

STOP 

ENP 
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NOT  ORIENTED 

OWW  eo  '1$ 


Choraot«r  Orl*ntatl«n 
FlgKjrm  A  CUSPRMJ 


r?Ai  i  USTART 

CALL  UPSET  C 'TERMINATOR'. '  ;  '3 

CALL  USET  C 'SOFTWARE' 3 

CALL  USET  C 'A CENTER' 3 

CALL  UPRINT  CM.  .50. . 'NOT  ORIENTED j  ' 3 

CALL  UPSET  C 'ORIENTATION'. 20.) 

CALL  UPRINT  C60 .. 40 ..' ORIENTED  20  DECREES; O 
CALL  USET  C' HARDWARE O 
CALL  USET  C' LARUE '3 

CALL  UPRINT  CS0 .  .  25 . .  '  CHARACTER  <0>RIENT ATION  ;  '  5 

CALL  UPRINT  C50 . . 20 . . ' <F>ICURE  A  <CU3PRNT5»'5 

CALL  UEND 

STOP 

END 
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ItaJ  ics 
No  ItaJ i cs 


Example*  of  Xtol Ideation 
Fl«uro  6  OJ8PRNT5 


CALL  USTART 

CALL  UPSET  C ' TERMINATOR '  .  '  j  '  S 
CALL  USET  C'XTALXCS'S 
CALL  USET  C 'SOFTWARE' S 
CALL  UPRXNT  C2S . .58. . 'I>TALICSj 'S 
CALL  USET  C 'NOITALICS' 5 

CALL  UPRXNT  <26. . 40. . '<NXJ  <I>TALICS<j 'S 

CALL  USET  C' NO CENTER'S 

CALL  UPRXNT  C26..30., 'REFLECTIONS; 'S 

CALL  UCOSTS  C26..3S.. t ,,-t ..0.S 

CALL  UPSET  C 'SLANT', 40. 5 

CALL  USET  < 'ITALICS' > 

CALL  UPRXNT  C0 . , 0 . , ' REFLECTIONS* ' S 
CALL  USET  C 'WORLD  COORDINATES ' S 
CALL  USET  C' HARDWARE'S 
CALL  USET  C'ACENTER'S 
CALL  USET  < 'LARGE'S 

CALL  UPRXNT  C60. . IS. , 'E>XAMPLES  OF  <I>TALICIZATION; 'S 

CALL  UPRINT  CS0.. 10.. '<F>IGURE  S  <CU3PRNTSj'S 

CALL  UEND 

STOP 

END 
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* 


Thto  I* 

an  •*« 
apt*  of 
aoratn 
Ina. 


Hors  (nine 

F»*ur*  a  CUSPRNT} 


CALL 

CALL 


CALL 


CALL 

CALL 


CALL 


USTART 

UPSET  < 'TERMINATOR' ,  '  ;  '  > 

USET  < 'PERCENT  UNITS'} 

UNARQN  C4C..66..38..M.) 

USET  C'LARGEO 
USET  C 'DEVICE' 5 

UPR.TNT  C40 . ,  45 . .  'T>NIS  IS  AN  EXAMPLE  OF  NARCININC .  i '  3 
USET  < 'A CENTER'} 

UNARQN 

UPRINT  CSQ. , 15. , ' <N>ARQININC >  '3 _ 

UPRINT  <M.,ta../<F>ISURE  6  <CU3PRNT>iO 
UEND 


STOP 

END 


269 


M 

0 

ft 

E 

M 

A 

ft 

e 

i 

N 

Z 

N 

9 

Vortlool  Spacing  by  uolng  Mors  In (no 
Ft pur*  7  CtSPRNTi 


CALL  USTART 


CALL  UPSET  C' TERMINATOR 
CALL  USET  < 'PERCENT  UNITS'* 

CALL  USET  < 'DEVICE'* 

CALL  UMARGN  CS0 . .50 .5.20. .  80 . * 

CALL  USET  C 'LAR3E' * 

CALL  UPRINT  C50. .80. . 'MORE  MARGINING;'* 
CALL  USET  C'ACENTER'J 
CALL  UNARON  CO. . 100.. 0.. 100.* 


CALL  UPRINT  <50., 16.. 
CALL  UPRINT  <60.. 10.. 
CALL  UEND 


' V>ERTICAL  <S>PACING  BY  USINC  <N>AR6ININ6 
'<F>ICURE  7  «U3PRNT*;  '* 


» 


STOP 


END 
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ExoaiplM  of  Windowing  of  Chorootoro 
Flguro  •  CU3PRNT3 


CALL  USTART 

CALL  UPSET  C ' TERMINATOR '3 
CALL  USET  C 'PERCENT  UNITS'} 

CALL  UP AREA  CSS. ,66. , SS.,06.3 
CALL  UOUTLN 

CALL  USET  C ' EXTRALAROE' 3 

CALL  UPRINT  C-I0.,«0., 'W>INDOVXNC  OF  HARDWARE  CHARACTERS, ' 3 
CALL  USET  C' SOFTWARE  CHARACTERS'} 

CALL  Ltt'ET  L' A CENTER '3 

CALL  UPRINT  C4S..40., 'WINDOWING  OF  SOFTWARE  CHARACTERS) '3 

CALL  USET  C 'DEVICE' 3 

CALL  USET  C' HARDWARE  CHARACTERS'} 

CALL  USET  C'LAR3E'3 

CALL  UPRINT  C60 . , 26 . , ' <E>XANPLES  OF  <W>IND0WIN6  OF  < CHARACTERS 

CALL  UPRINT  <60 . , 20 . , ' <F>IGURE  9  <CU3PRNT3i'3 

CALL  UEND 

STOP 

END 
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* 


30  Character  String  1 

So  Co*r«D**r  fitrln®  a 


90  Soft war*  Char*ot*r  Strlne  Or  I *nlal I  on 
F»*ur*  )!  ClOPRNT) 


CALL  USTART 
CALL  UPSET 
CALL  USET  < 
CALL  USET  C 
CALL  UPRXNT 
STATION; ') 
CALL  UPRXNT 
CALL  USET  C 
CALL  UWXNPO 
CALL  U3PRNT 
CALL  U3PRNT 
CALL  U3CSTS 
CALL  U3PRNT 
CALL  U3CSYS 
CALL  U3PRNT 
CALL  UENO 
STOP 
END 


C ' TERHXNATOR ',';') 

' LARGE ' ) 

'A CENTER')  _ 

<S0.. IS.. '30  SOFTWARE  <C>HARACTER  <S>TRING  <0>RIEN 

C60.,  10..  '<F>ISURE  II  <CU3PRNT);') 

'SOFTWARE  CHARACTERS') 

<-180., !«0. ,-100., 100.) 

<0.,0.,O.,  '3D  CHARACTER  CS>TRINC  I;') 
<0.,-30.,-60., 'OO  CHARACTER  <S>TRINS  2;') 
C-30..40..30.. I  ..  I  ..  I  ..4S..7S..4S.) 

C0.,0.,8., '<30  OHARACTER  <S>TRINC  S;'> 
C60.,60..-I0..-I ..-I . , l . .  0 . ,  O . . -20 . ) 

<0..0.,0.. '<30  CHARACTER  <S>TRINC  4;') 
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Subroutine  U3R0TA 


3D 


FUNCTION: 

This  routine  builds  a  new  coordinate  system  with  origin  at  the  current  pen  position 
rotated  by  the  specified  amount  about  each  axis. 

CALLING  SEQUENCE: 

CALL  U3ROTA(RX,RY,RZ) 


Where 

RX,RY,RZ  indicates  the  amount  of  rotation  around  each  of  the  axes  in  current  angular 
units. 

OPTIONS: 

Rotation  Application  Order:  See  U3CSVS 

COMMENTS: 

This  routine  causes  a  new  coordinate  system  to  be  built  with  origin  at  the  current  beam 
position  and  with  a  scale  factor  of  1  along  oach  axis.  A  full  description  of  the  user 
coordinate  system  facility  can  be  found  in  the  U3CSYS  writeup  and  in  the  UCOSYS 
writeup. 


Programming  Notes: 


CALL 

CALL 

CALL 

CALL 

CALL 


CALL 


CALL 


CALL 

CALL 

CALL 

CALL 

STOP 

END 


USTART 

UMOVE  CBS. .76.5 

UROTAT  C0.5 

UPLYQN  C0..S..3., 18.5 

UROTAT  088. 5 

UPLYQN  C0.,0.,3.,  10.5 

USET  C' WORLD  COORDINATES ' 5 

UMOVE  C26.,26.5 

U3R0TA  C76.,0.,8.5 

UPLYQN  C8., 8. ,4., 10.5 

USET  C 'WORLD  COORDINATES ' 5 

UMOVE  C76..26.5 

U3R0TA  <8. ,46. ,0.5 

UPLYQN  C8. ,0. , 4. , 10.5 

UEND 
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Subroutine  U3SCAL 

FUNCTION: 


3D 


This  routine  composes  a  new  coordinate  system  with  the  origin  at  the  current  beam 
position  and  scaled  as  specified  along  each  axis. 

CALLING  SEQUENCE: 

CALL  U3SCAL(SX,SY,SZ) 

Where 

SX,SY,5Z  are  the  multiplicative  scale  factors  along  each  axis  respectively. 

OPTIONS: 

None 

COMMENTS: 

The  rotation  factors  used  in  composing  the  new  scaled  coordinate  system  are  0.  around 
each  axis.  See  the  U3CSYS  and  UCOSYS  writeup  for  a  full  description  of  the  user 
coordinate  system  facility. 

Programming  Notes: 
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Subroutine  U3STUD 

FUNCTION: 

This  routine  returns  to  the  user  the  limits  ot  his  3-D  U3WNDO  and  U3AREA. 

CALLING  SEQUENCE: 

CALL  U3STUD  (ARRAY) 

Where 

ARRAY  is  an  array  of  at  least  twelve  words  to  contain  the  current  settings. 

OPTIONS  which  may  apply: 

Device  Units:  ‘INCHES’,  'CENTIMETERS',  'PERCENT',  'FONT',  'RASTER', 
'SPECIFICATION' 


3D 


COMMENTS: 

A  call  to  this  routine  will  return  to  the  user  the  limits  of  his  3-D  virtual  window  and  display 
area  in  the  order: 

ARRAY  (1)  =  virtual  X  minimum  boundary 
ARRAY  (2)  =  virtual  X  maximum  boundary 
ARRAY  (3)  =  virtual  Y  minimum  boundary 
ARRAY  (4)  =  virtual  Y  maximum  boundary 
ARRAY  (5)  =  virtual  Z  minimum  boundary 
ARRAY  (6)  =  virtual  Z  maximum  boundary 
ARRAY  (/)  =  device  X  minimum  boundary 
ARRAY  (8)  =  device  X  maximum  boundary 
ARRAY  (9)  =  device  Y  minimum  boundary 
ARRAY(IO)  =  device  Y  maximum  boundary 
ARRAYO  1 )  =  device  Z  minimum  boundary 
ARRAYO  2)  =  device  Z  maximum  boundary 


To  recover  only  the  2-D  boundaries,  see  USTUD. 


Programming  Notes: 
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Subroutine  U3WHER 


3D 


FUNCTION: 

This  routine  returns  the  three-dimensional  coordinates  of  the  pen  position  in  current 
units. 

CALLING  SEQUENCE: 


Where 


CALL  U3WHER(X,Y,Z) 


X,Y,Z  will  contain  the  pen  position  coordinates  in  current  units  upon  exit  from 

this  rotation. 

OPTIONS: 

Pen  Coordinate  Options:  see  U3PEN 

COMMENTS: 

The  coordinates  returned  will  always  indicate  'ABSOLUTE'  position  in  the  current 
coordinate  system  since  the  'RELATIVE'  position  is  always  (0.,0.,0  ). 

Programming  Notes: 
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Subroutine  U3WND0 


3D 


FUNCTION: 

This  routine  specifies  the  boundaries  of  the  user  window  in  virtual  3-D  space. 

CALLING  SEQUENCE: 

CALL  U3WNOO(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX) 


is  the  minimum  X-boundary  of  the  desired  new  window,  given  in  eye  coor¬ 
dinates. 

is  the  maximum  X-boundary  of  the  desired  new  window,  given  in  eye  coor¬ 
dinates. 

is  the  minimum  Y-boundary  of  the  desired  new  window,  given  in  eye  coor¬ 
dinates. 

is  the  maximum  Y-boundary  of  the  desired  new  window  ,  given  in  eye  coor¬ 
dinates. 

in  the  minimum  Z-boundary  of  the  desired  new  window,  given  in  eye  coor¬ 
dinates. 

is  the  maximum  Z-boundary  of  the  desired  new  window,  given  in  eye  coor¬ 
dinates. 

OPTIONS  which  may  apply: 

Z-axis  clipping:  ‘NOZCLIPPING’,  ‘ZCLIPPING’ 

COMMENTS: 

The  concept  of  windowing  into  virtual  space  expands  greatly  the  capabilities  of  the  user 
In  three-dimensional  space,  the  user  is  assumed  to  be  located  somewhere  in  virtual 
space  (i.e.,  at  the  view  point)  and  looking  in  some  direction  (i.e.,  toward  the  view  site)  (see 
UVIEW).  Normally,  he  is  only  interested  in  a  particular  subset  of  all  the  space  within  his 
field  of  view  This  subset  is  specified  by  the  U3WNDO  routine.  The  portion  of  the  user's 
picture  which  is  within  the  boundaries  of  ihe  window  will  be  projected  onto  a  plane  per¬ 
pendicular  to  the  viewing  vector  and  in  front  of  the  viewer  This  plane  is  known  as  the 
view  plane  (See  UVWPLN).  The  X  and  Y  window  boundaries  refer  to  lines  on  the  view 
plane  which  form  a  rectangle.  The  Z  window  boundaries  indicate  the  portion  of  space  in 
front  of  the  viewer  to  be  projected  onto  the  plane  if  ’ZCLIPPNG'  has  been  specified.  Nor¬ 
mally,  'NOZCLIPPING'  is  specified,  in  which  case  all  lines  which  are  projected  onto  the 
view  plane  within  the  X  and  Y  window  boundaries  are  visible. 

Subroutine  U3WNDO  will  generate  an  error  condition  if  the  maximum  boundary  is 
specified  less  than  or  equal  to  the  minimum  boundary  and  the  previous  setting  of  the 
window  will  be  retained. 


Where 

XMIN 

XMAX 

YMIN 

YMAX 

ZMIN 

ZMAX 


Programming  Notes: 


Subroutine  U3WRIT 


3D 


FUNCTION: 

This  routine  displays  textual  output  at  the  pen  position  specimen  in  3-D  space.  The  pen 
will  be  repositioned  to  the  location  it  was  at  prior  to  the  call  to  U3WRIT. 

CALLING  SEQUENCE: 


CALL  U3WRIT(X,YZ0ATA) 


Where 

X,Y,Z  are  the  coordinates  of  the  beginning  of  the  alphanumeric  output  in  current 

units. 


DAT  A  is  a  GCS  Hollerith  character  string  terminated  by  the  GCS  terminator 

character  if  'TEXT'  is  specified. 

is  a  REAL  variable  or  literal  if  'INTEGER'  or  'REAL'  is  specified, 
is  a  REAL  array  of  two  elements  if  'XYCOORDINATES'  is  specified, 
is  a  REAL  array  of  three  elements  if  'XYZCOORD1NATES'  is  specified. 

OPTIONS: 


Coordinate  Space  Options: 
Alphanumeric  Character  type: 
Alphanumeric  Output  type: 
Alphanumeric  Spacing  Option. 


See  U3PRNT 
See  U3PRNT 
See  U3PRNT 
See  U3PRNT 


COMMENTS: 

This  routine  only  differs  from  U3PRNT  in  the  position  of  the  pen  at  return  from  the 
routine.  U3PRNT  leaves  the  beam  positioned  at  the  end  of  the  text  output.  U3WRIT 
returns  the  pen  to  the  position  it  held  before  entry  to  U3WRIT.  For  a  full  discussion  of  the 
various  U3WRIT  options,  see  U3PRNT. 


Programming  Notes: 


US  GOVERNMENT  PRINTING  OFFICE  1980  6*0  290/37 
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In  accordance  with  letter  from  DAEN-RDC,  DAEN-ASI  dated 
22  July  1977,  Subject:  Facsimile  Catalog  Cards  for 
Laboratory  Technical  Publications,  a  facsimile  catalog 
card  in  Library  of  Congress  MARC  format  is  reproduced 
below. 


Westinghouse  Word  Processing  Center,  Pittsburgh. 

Graphics  Compatibility  System  (GCS)  programmer's  reference 
manual  /  by  Westinghouse  Word  Processing  Center,  Pittsburgh, 
Pa.  Vicksburg,  Miss.  :  U.  S.  Waterways  Experiment  Station  ; 
Snringfield,  Va.  :  available  from  National  Technical  Informa¬ 
tion  Service,  1979. 

ii,  280  p.  :  ill.  ;  27  cm.  (Miscellaneous  paper  -  U.  S. 
Army  Engineer  Waterways  Experiment  Station  ;  0-79-5) 

Prepared  for  Office,  Chief  of  Engineers,  U.  S.  Army,  Wash¬ 
ington,  D.  C.,  under  Contract  No.  DAC1  39-78-M-2676. 

1.  Computer  graphics.  2.  Graphics  Compatibility  System. 

3.  Manuals.  L.  Programmer's  reference  manual.  I.  United 
States.  Army.  Corps  of  Engineers.  II.  Series:  United  States. 
Waterways  Experiment  Station,  Vicksburg,  Miss.  Miscellaneous 
paper  ;  0-79-5. 
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